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PREFACE 


This document is the reference manual to the Pascal/VS programming language. The 
Pascal/VS Programmer's Guide, SH20-6162, is also available from IBM to halp write 
programs in Pascal/VS. 


It is assumed that you are already familiar with Pascal and programming in a high 
level programming language. There are many text books available on Pascal; the fol- 
lowing list of books was taken from the Pascal User's Group Pascal News, December 
1978 NUMBER 13 and September 1979 NUMBER 15. You may wish to check later editions of 
Pascal News and your library for more recent books. 


° The Design of Well-Structured and Correct Programs by S. Alagic and M.A. Arbib, 
Springer-Verlag, New York, 1978, 292 pp. 


° Microcomputer Problem Solving by K.L. Bowles, Springer-Verlag, New York, 1977, 
563 pp. 


° A_ Structured Programming Approach to Data by D. Coleman, MacMillan Press Ltd, 
London, 1978, 222 pp. 


° A Primer _on Pascal by R.W. Conway, D. Gries and E.C. Zimmerman, Winthrop Pub- 
lishers Inc., Cambridge Mass., 1976, 433 pp. 


° PASCAL: An Introduction to Methodjcal Programming by W. Findlay and D. Watt, 
Computer Science Press, 1978, 306 pp.; UK Edition by Pitman International Text, 
1978. 


° Programming in PASCAL by Peter Grogono, Addison-Wesley, Reading Mass., 1978, 
357pp. 


° Pascal Users Manual and Report by K. Jensen and N. Wirth, Springer-Verlag, New 
York, 1978, 170 pp. 


° Structured Programming and Problem-Solving with Pascal by R.B. Kieburtz, Pren- 
tice-Hall Inc., 1978, 365 pp. 


= ° Programming via Pascal by J.S. Rohl and Barrett, Cambridge University Press. 


° An Introduction to Programming and Problem-Solving with Pascal by G.M. 
. Schneider, S.W. Weingart and D.M. Perlman, Wiley & Sons Inc., New York, 394 pp. 


° Introduction to Pascal by C.A.G. Webster, Heyden, 1976, 129 pp. 


° Introduction to Pascal by J. Welsh and J. Elder, Prentice-Hall Inc., Englewood 
Cliffs, 220 pp. 


° A_ Practical Introduction to Pascal by I.P. Wilson and A.M. Addyman, 
Springer-Verlag New York, 1978, 145pp; MacMillan, London, 1978. 


° Systematic Programming: An Introduction by N. Wirth, Prentice-Hall Inc., Engle- 
wood Cliffs, 1973 169 pp. 


° Algorithms + Data Structures = Programs by N. Wirth, Prentice-Hall Inc., Engle- 
wood Cliffs, 1976 366 pp. 


| This reference manual considers ANSI/IEEE770X3.97-1983 as the Pascal Standard. 


STRUCTURE OF THIS MANUAL 


This manual is divided into the following major topics 
Chapter 1 is a summary of the language. 
Chapter 2 is a description of the basic units (lexical) of Pascal/VS. 
Chapters 3 through 9 are a top-down presentation of the language. 


¢ Chapter 10 describes the I/0 procedures and functions. 
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Chapter 11 describes the predefined procedures and functions. 
Chapter 12 describes the compiler directives. 


Appendices provide supplemental information about Pascal/VS. 


PASCAL/VS SYNTAX DIAGRAMS 


The syntax of Pascal/VS will be described with the aid of syntax diagrams. These 
diagrams are essentially "road maps"; by traversing the diagram in the direction of 
the arrows you can identify every possible legal Pascal/VS program. 


Within the syntax diagram, the names of other diagrams are printed in lower case and 
surrounded by braces ("{}"). When you traverse the name of another diagram you can 
consider it a subroutine call (or more precisely a “subdiagram call"). The names of 
reserved words are always in lower case. Special symbols Ci.e. semicolons, commas, 
operators, ete.) appear as they appear ina Pascal/VS program. 


The diagram traversal starts at the upper left and completes with the arrow on the 
right. Every horizontal line has an arrowhead to show the direction of the trav- 
ersal on that line. The direction of traversal on the vertical lines can be deduced 
by looking at the horizontal lines to which it connects. Dashed lines (i.e. t----")} 
indicate constructs which are unique to Pascal/VS and are not found in standard Pas- 
cal. 


Identifiers may be classified according to how they are declared. For the sake of 
clarity, a reference in the syntax diagram for {id} is further specified with a one 
or two word description indicating how the identifier was declared. The form of the 
reference is “{ididescription}". For example fid:type} references an identifier 
declared as a type; f{id:function} references an identifier declared as a function 
name. 


REVISION CODES 
The convention used in this document is that all changes in the current version from 
the previous edition are flagged with a vertical bar in the left margin. 


Extensions to Pascal are marked with a plus sign in the margin. 
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SUMMARY OF AMENDMENTS 


RELEASE 2.2 

The following is a list of the functional changes that were made to Pascal/VS for 

Release 2.2. 

° The interactive debugger now supports 32 breakpoints. 

. Two new predefined constants have been added to the compiler: MINREAL and MAX- 
REAL. 

° The LANGLVLC(STDRES) compiler option has been added to allow the user to use the 
non-standard Pascal/VS reserved words as identifiers. 


° A new predefined function, ADDR, accepts a variable name and returns the 
location of that variable in storage. 


° Structured array constants may now be passed as the source arrays to PACK and 
UNPACK. 


RELEASE 2.1 

The following is a list of the functional changes that were made to Pascal/VS for 

Release 2.1. 

e A procedure (Cor function) at any nesting level may now be passed as a routine 
parameter. The previous restriction which required such procedures to be at the 
outermost nesting level of a module has been removed. 

° Two new options may be applied to files when they are opened: UCASE and NOCC. 


° Rules have been relaxed in passing fields of packed records by var to a routine. 


° The "STACK" and “HEAP™ run time options have been added to control the amount by 
which the stack and heap are extended when an overflow occurs. 


e The syntax of a "structured constant" which contains non-simple constituents has 
been simplified. 


RELEASE 2.0 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.0. 


° Pascal/VS now supports single precision floating point (32 bit) as well as dou- 
ble precision floating point (64 bit). 


e Files may be opened for updating with the UPDATE procedure. 


° Files may be opened for terminal input CTERMIN) and terminal output CTERMOUT) so 
that I70 may take place directly to the user's terminal without going through 
the DDNAME interface. 


e The MAIN directive permits you to define a procedure that may be invoked from a 
non-Pascal environment. A procedure that uses this directive is not reentrant. 


e The REENTRANT directive permits you to define a procedure that may be invoked 
from a non-Pascal environment. A procedure that uses this directive is reen- 
trant. 


° A new predefined type, STRINGPTR, has been added that permits you to allocate 


strings with the NEW procedure whose maximum size is not defined until the invo- 
cation of NEW 
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A new parameter passing machanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 

The maximum siza of a string has been increased to 32767 characters. 

The Pascal/VS compiler is now fully reentrant. 


Code produced from the compiler will be reentrant if static storage is not modi- 
fied. 


Pascal/VS programs may contain source lines up to 100 characters in length. 
Files may be accessed based on relative record number (random access). 

Run time errors may be intercepted by the user's program. 

Run time diagnostics have been improved. 

Pascal/VS will flag extensions when the option "LANGLVL(STD)" is used. 


A mechanism has been provided so that Pascal/VS routines may be called from oth- 
er languages. 


All record formats acceptable to QSAM are now supported by the Pascal/VS I/0 
facilities. 


A procedure or function may now be exited by means of the goto statement. 
You may now declare an array variable where each element of the array is a file. 
You may define a file to be a field of a record structure. 


Files may now be allocated in the heap (as a dynamic variable) and accessed via a 
pointer. 


You may now defina a subrange of INTEGER which is allocated to 3 bytes of 
storage. Control over signed or unsigned values is determined by the subrange. 


Variables may be declared in the outermost scope of a SEGMENT. These variables 
are defined to overlay the variables in the outermost scope of the main program. 


The PDSIN procedure opens a member of a library file (partitioned dataset) for 
input. 


The PDSOUT procedure opens a member of a library file (partitioned dataset) for 
output. 


A proeedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 


The CPAGE percent (%)} statement conditionally does a page eject if less than a 
specified number of lines remain on the current listing page. 


The MAXLENGTH function returns the maximum length that a string variable can 
assume. 


The “CHECK TRUNCATE option enables (Cor disables) the checking for truncation of 
strings. 


The PASCALVS exec for invoking the compiler under CMS has been modified so that 
the specification of the operands allows greater flexability. 


New compiler options have been added, namely: LINECOUNT, PXREF, PAGEWIDTH, and 
LANGLVL. 


The catalogued procedures for invoking Pascal/VS in OS Batch have been simpli- 
fied. 


The format of the output listing has been modified so that longer source lines 
may be accomodated. 


Multiple debugger commands may be entered on a single line by using a semicolon 
¢3;) as a separator. 
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The format of the Pascal File Control Block has been modified. 
Support is now provided for ANSI and machine control characters on output files. 


Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 


The debugger now supports breakpoints at the end of a procedure or function. 


The Trace mode in the debugger provides information on when procedures are being 
exited. 


The TRACE procedure now permits you to specify the file on which the traceback 
is to be written. 


The Equate command of the debugger has been enhanced. 


The debugger will print "uninitialized" when displaying a variable that has not 
been assigned. 


New run time options are provided: SETMEM, ERRCOUNT, and ERRFILE. 


Summary of Amendments vii 


This page intentionally left blank 


viii Pascal/VS Reference Manual 


+++ 


MUU BRP OHHOHD HA Ww NMP PPP DN PI 


WFP woOUUUWUUnAOIAUUI UI es woo One & SALI DWNH & oe SAUDWNH SG PRR RRP RRR RR RP RR Re Re Re RRR Ree Oo 


TABLE OF CONTENTS 


Introduction to Pascal/vs a 
Pascal Language Summary 
-l Syntax 

Modules 

Declarations 

Data-Types 

Parameters 

Statements 

Expressions 

Operands 

Special Symbols 
QQ Identifiers . 
1 The Not Operator . 
-12 Multiplying Operators. 
-13 Adding Operators 
-14 Relational Operators 
.15 Reserved Words . 
-16 Predefined Constants 
-17 Predefined Types : 
-18 Predefined Variables 
.19 Predefined Functions 


a a ed 
Re oOON AU DWP 
00000 OO OONNINIA AUR NWN DR ee 


.20 Predefined Procedures 10 
21 % Statements 11 
The Base Vocabulary a 
Identifiers . 13 
Lexical Scope of Identifiers” 13 
Reserved Words 15 
Special Symbols 16 
Comments : 17 
Constants . 18 
Structured Constants” 20 


Structure of a Module a <2 


Pascal/vS Declarations ar 2 
The Label Declaration 2 
The Const Declaration ee ee ee ee ee ee ee ee ee ee ee ee 2G 
The Type Declaration ee ee ee ee eee ee ee ee ee RT 
The Var Declaration a 
The Static Declaration a 
The Def/Ref Declaration cee ee ee ke ee ee ee ew ee ee ew we) (CD 
The Value Declaration 2 
Types . a 
A Note about. Strings. a) 
Type Compatibility . a) 
2.1 Implicit Type Conversion. a 1 
2.2 Same Types : PG 
2.3 Compatible Types” a 7 
2.4 Assignment Compatible Types Fa 
The Enumerated Scalar 7. eS 
The Subrange Scalar cf 
Predefined Scalar Types a) 
5.1 The Type INTEGER a 
5.2 The Type CHAR Cee ee ee ee ee ee ee ee ee ee ew we 4 
5.3 The Type BOOLEAN a 2 | 
5.4 The Type REAL we ee ee ee ee ee ee ee ee ee et ee ew 4! 
5.5 The Type SHORTREAL a 2K) 
The Array Type a 
6.1 Array Subscripting wee kw ew et ee ee we ee ee ee ew ee 4G 
The Record Type . ee ee eee ee ee ee ee ee ee eee 4G 
7.1 Naming of a Field Bee ee ee ee ee ee ee ee ee ee ee 4G 
7.2 Fixed Part a | 
7.3 Variant Part 27 7 
7.4 Packed Records ro.) 
7.5 Offset Qualification: of Fields eee ew ee ee ee ew ee we ew ew) 48 
The Set Type . a 2 
The File Type : a 2 
0 Predefined Structure Types a 1 
.10.1 The Type STRING a 1 


Table of Contents ix 


++ e+ 


++ eeee 


PREP RPRPOBYAUARUNHKO SNAUEUWUNEFO FRUWNEFO UFR AKRRHBABRWAARAANEO 


FPORBNAUPRWNRO ULRWNEO 


BRR eRe eee RP eee eee OODOUWUDOWWUUOUOUUWUWUUWOUO COMO MOO MOK SNNNSE DDH 
Ghd ba” Jain ehy sles RON oie™ Biel.” vas weer Pat pee She tet gen ney: Coie fern Se Spee ae < 


agoocvcveccncec TTC CCCCCOSO 


x 


10.2 The Type ALFA 

.10.3 The Type ALPHA 

10.4 The Type TEXT 

1 The Pointer Type 

2 The Type STRINGPTR a ee ee 
3. Storage, Packing, and Alignment 


Routines Bs ey OF, Si Oe Nes Se. ee 
Routine Daclaration 
Routine Parameters 
Pass by Value Parameters’ 
Pass by Var Parameters 
Pass by Const Parameters 
Formal Routine Parameters 
Conformant String Parameters 
utine Composition ae 
Internal Routines 
FORWARD Routines 
EXTERNAL Routines 
FORTRAN Routines 
MAIN Procedures 
REENTRANT Procedures’ 
Examples of Routines 
Function Results 
Predefined Procedures and Functions 


R 


AMAA ACS MMMM KR 
NOU PUNO in BWN Pe 


Variables . SMe tas cot oe 
Subscripted Variable. 

Field Referencing 

Pointer Referencing 

File Referencing 


Expressions how J WE we eS “Eee 
Operators " 

Constant Exprassions 

Boolean Expressions 

Logical Expressions 

Function Call 

Scalar Conversions 

Sat Constructor 


Statements ae ete we ete ee we 
The Assert Statement 

The Assignment Statement. 
The Case Statement Z 
The Compound Statement 
The Continue Statement 
The Empty Statement 

The For Statement 

The Goto Statement 

The If Statement 

The Leave Statement 

The Procedure Call 

Tha Rapeat Statement 
The Return Statemant 
The While Statement 

The With Statement 


Iv0 Facilities B et oe ea ee as 
RESET Procedure s i 
REWRITE Procedure 
TERMIN Procedure 
TERMOUT Procedure 
PDSIN Procedure 
PDSOUT Procedure 
UPDATE Procedure 
CLOSE Procedure 
GET Procedure 

0 PUT Procedure 


-11 SEEK Procedure 

.12 EOF Function 

-13 READ and READLN (TEX? Files) 
-14 READ CNon-TEXT Files) ‘ 

-15 WRITE and WRITELN CTEXT Files) 
-16 WRITE CNon-TEXT Files) 


Pascal/VS Reference Manual 


—++4ee4+ 


+Het+Heeeeteeeese 


++ 


+e 


t+eeteeeeteet 


17. ~EOLN function 
-18 PAGE Procedure 
19 COLS Function 


Execution Library Facilities oe ew wwe he ww tt ww lt hw 
Memory Management Routines . 

-1 MARK Procedure 

2 RELEASE Procedure 
3. NEW Procedure . 
4 DISPOSE Procedure 
ata Movement Routines 
1 PACK Procedure 

2 UNPACK Procedure 
ata Access Routines 

1 LOWEST Function 

2 HIGHEST Function 

3. LBOUND Function 

4 HBOUND Function 

5 SIZEOF Function 

6 ADDR Function 
onversion Routines 

1 ORD Function 

2 CHR Function 

3. Scalar Conversion 
4 FLOAT Function 

5 TRUNC Function 

6 ROUND Function 

7 STR Function 
athematical Routines 
1 MIN Function 

2 MAX Function 

3. PRED Function 

4 SUCC Function 

5 ODD Function 

-6 ABS Function 

7 SIN Function 

8 COS Function 

9 ARCTAN Function 

10 EXP Function 

11 LN Function 

12 SQ@RT Function 

13. SQ@R Function 

14 RANDOM Function 
TRING Routines . 

1 LENGTH Function 

2 MAXLENGTH Function 
3. SUBSTR Function 

4 DELETE Function 

5 TRIM Function 

6 LTRIM Function . 
7 COMPRESS Function 
8 INDEX Function 

9 TOKEN Procedure 

10 READSTR . 
11 WRITESTR 

eneral Routines 

1 TRACE Procedure 

2 
y 
1 
2 
3 
4 


PRP RRP PRP RRP RR PRR PRP RP PRP PRP RP RRR: 


HALT Procedure : 
stem Interface Routines 

DATETIME Procedure 

CLOCK Function 

PARMS Function . 

RETCODE Procedure 


ee ee ee oe 
WOWAUBWNPO PRR ROP RPA RPP RPP PRP RPP RPP POPP RPP RPP PRP RRP PRP RR UR RRR Ree 


The % Feature ee ee ee et lt we tt tt tt lk lhl tl tl hl tl hl 
“INCLUDE Statement 

The “CHECK Statement 

The “PRINT Statement 

The %*LIST Statement 

The %PAGE Statement 

The %CPAGE Statement 

The “TITLE Statement 

The “SKIP Statement 

The *MARGINS statement 


Table of Contents 


117 
117 
118 


119 
120 
120 
120 
121 
123 
124 
124 
124 
125 
125 
125 
126 
126 
127 
127 
128 
128 
128 
129 
129 
130 
130 
131 
132 
132 
132 
133 
133 
134 
134 
135 
135 
136 
136 
137 
137 
138 
138 
139 
139 
139 
140 
140 
141 
141 
142 
142 
143 
143 
144 
145 
145 
145 
146 
146 
146 
147 
147 


149 
150 
150 
150 
150 
151 
151 
151 
151 
151 


xi 


+e + 


APPENDIXES Be oh Toy SO Sl Fee Cal 8 seu Ze 


Appendix A. The Space Type os 
A.1 The Space Declaration be 
A.2 Space Referencing 


Appendix B. Standard Identifiers in Pascal/vs 


Appendix Cc. Syntax Diagrams é 


Appendix D. Index to Syntax Diagrams 


Appendix E. Glossary we 


Index Boe: wa Pee i OR, 6k ae ae 


xii Pascal/VS Reference Manual 


"The language Pascal was designed by 
Professor Niklaus Wirth to satisfy two 
principal aims: 


° to make available a language suit- 
able for teaching programming as a 
systematic discipline based on cer- 
tain fundamental concepts clearly 
and naturally reflected by the lan- 
guage. 


) to define a language whose implemen- 
tations could be both reliable and 
efficient on then available comput- 
ers." 


(Pascal Draft Proposal ISO/TC 977SC 5 
N595, January, 1981) 


Pascal/VS is an extension to standard 
Pascal. The purpose of extending Pascal 
is to facilitate application program- 
ming requirements. Among the extensions 
are such features as separately compil- 
able external routines, internal and 
external static data, and varying length 
character strings. 


Pascal is of interest as a high level 


programming language for the following 
reasons: 


1.1 PASCAL LANGUAGE SUMMARY 


1.0 INTRODUCTION TO PASCAL/VS 


It provides constructs for defining 
data structures in a clear manner. 


It is suitable for applying struc- 
tured programming techniques. 


The language is 
machine-independent. 


relatively 


Its syntax and semantics) allow 
extensive error diagnostics durina 
compilation. 


A program written in the language 
can have extensive execution time 
checks. 


Its semantics allow efficient 
object code to be generated. 


Its syntax allows relatively easy 
compilation. 


The language is relatively well 
Known and is growing in popularity. 


This section of the manual is meant to be a capsule summary of Pascal/VS. It should 


serve as a brief outline of the language. 


of this document. 


1.1. Synta 


The details are explained in the remainder 


The syntax is described with an example-like format that summarizes the important 
features of the item. The following rules are the conventions used. 


Ce indicates that the item preceding this symbol may be repeated an 
arbitrary number of times. 

til encloses items which are optional. 

{] denote the standard square brackets of Pascal. 


item-comma-list indicates that the item may be repeated, separating each occurrence 


with a comma. 


digit-list 


refers to a sequence of one or more digits ("0".."9"), 


binary-digits refers to a sequence of one or more binary digits ("0" or 1"), 


hex-digits refers to a sequence of one or more hexadecimal digits ("0".."9" or 
wat tT egr) i 

id refers to an identifier. 

label refers to either an identifier or an integer number in the range 


0..9999. 
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directive 


field-list 


1.1.2 Modules 


program 


SEGMENT 


refers to any one of: FORWARD, EXTERNAL, FORTRAN, MAIN, or 
REENTRANT. 


refers to the list of fields that compose the body of a record data 
type. 


is a self-contained and independently executable unit of code. 


program id [ ( jid-comma-list ) 1] ; 
declaration... 
compound-statement 


is a shell in which procedures and functions may be separately com- 
piled. 


SEGMENT id ; 
declaration... 


1.1.3 Declarations 


label 


const 


type 


var 


def 


ref 


static 


value 


is used to declare a label in a program, procedure or function. 


label 
label-comma-list ; 


declares an identifier that becomes synonymous with a compile time 
computable value. 


const 
id = constant-expression ; 
tL id = constant-expression ; J... 


declares an identifier which is a user-defined data type. 


type 
id = data-type ; 
{C id = data-type ; J]. 


declares a local variable. 
var 
id-comma-list : data-type ; 
I id-comma-list : data-type ; 1... 


declares a variable which is defined in one module and may be refer- 


enced in other modules. 


def 
id-comma-list : data-type ; 
Lt id-comma-list : data-type ; J]. 


declares a variable which is defined in another module. 
ref 
jid-comma-list =: data-type ; 
LE id-comma-list : data-type ; ]. 


declares a variable which persists for the entire execution of the 
program. 


static 
id-comma-list =: data-type ; 
I jid-comma-list : data-type ; 1... 


assigns a value to a def or static variable at compile time. 


2 Pascal/VS Reference Manual 


C 


value 
variable *= constant~-assignment-statement ; 
CU variable := constant-assignment-statement ; J]. 


procedure defines a unit of a module which may be invoked as a statement. 
procedure id [ ( parameter [; parameter]... ) 1 ; 
directive ; 
or 


procedure id [ ( parameter [; parameter]... } 1 ; 
declaration... 
compound-statement ; 


function defines a unit of a module which may be invoked and returns a value. 
function id I (€ parameter [; parameter]... ) ] : id ; 
directive ; 
; or 
function id [ ¢€ parameter [; parameter]... ) ] : id ; 


declaration... 
compound-statemant ; 


1.1. Data-Types 


id is an identifier that was previously declared as a type. 
enumeration is a list of constants of a user-defined scalar data typa. 


€ id-comma-list ) 


subrange is a continuous range of a scalar type. 
£ packed J] constant .. constant-expression 
array is a data structure composed of a list of homogeneous elements. 


I packed J array [£ data-type ] of data-type 
record 1s a data structure composed of a list of heterogeneous fialds. 


Ut packed J] record 
{ id-comma-list : data-type ; ].. 
[ case Lid :] id of 


constant-comma-list : € field-list ) ; 
LU constant~comma-list =: € field-list ) ; J]... ] 
end 
set is a collection of zero or more scalar values. 
Lt packed ] set of data-type 
file 1s a sequence of data to be read or written by a Pascal program. 
file of data-type 
pointer is a reference to a variable that is created by the programmer. 
a id 
1.1.5 Parameters 
Value designates a pass-by-value parameter. 
id-comma-list : id 
var designates a pass-by-reference (read/write) parameter. 


var id-comma-list : id 
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const 


procedure 


function 


designates a pass~by-reference (read-only) parameter. 
const id-comma-list : id 


is the mechanism whereby a procedure may be passed to the called 
procedure (function) and executed from there. 


procedure id [ ( parameter [£; parameter]... ) 1 ; 


is the mechanism whereby a function may be passed to the called pro- 
cedure (function) and executed from there. 


function id [ (€ parameter [3 parameter]... ) 1] : id ; 


1.1.6 Statements 


Every statement may be preceded with one label: 


L label: J] statement 


assert 


assignment 


case 


compound 


continue 


empty 
for 


goto 


if 


tests a condition that should bea true and if not causes a runtime 
error to be produced. 


assert bool-expression 
assigns a value to a variable. 
variable ‘= expression 


causes any one of a list of statements to be executed based upon the 
value of an expression. 


case expression of 


L constant-comma~list : statement 3 1.. 
C otherwise 
statement [£ ; statement J... J 
end 


is a series of statements enclosed within begin/end brackets. 

begin 

statement [ ; statement J]... 

end 
resumes execution of the next iteration of the innermost loop. The 
termination condition is tasted to determine if the loop should con- 
tinue. 

continue 


contains no executable code. 


is a loop statement that modifies a control variable for each itar- 
ation of the loop. 


for variable 
statement 

or 

for variable 
statement 


axpression to expression do 


expression downto expression do 


changes the flow of your program. 
goto label 


causes one of two statements to be executed based on the evaluation 
of an expression. 


if bool-expression than 
statement 

t else 
statement J] 
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Cc 


leave terminates the execution of the innermost loop. Execution resumes 
as if the loop termination condition were true. 


leave 


call invokes a procedure. At the conclusion of the procedure, execution 
continues at the next statement. 


id £ ( expression-comma-list ) ] 


repeat is a loop statement with the termination test occurring at the end 
of the loop. 


repeat 
statement [ ; statement ].. 
until bool-expression 


return terminates the executing procedure (function? and returns control 
to the caller. 
return 
while is a loop statement with the termination test occurring at the 


beginning of the loop. 


While bool-expression do 
statement 


with permits complicated references to fields within a record to be 
treated as simple variables within a statement. 


With variable-comma-list do 
statement 


1.1.7 Expressions 


An expression is composed of operands combined with operators. The operators have 
the following precedence: 


not operator (highest) 
multiplying operators 

adding operators 

relational operators (lowest) 


1.1.8 Operands 


variable represents a unit of storage which may be referenced and altered. 
simple variable: id 
array: variable [ expression ] 
field: variable . id 
pointer: variable a 
constant represents a literal value. 
INTEGER digit-list 


" hex-digits 'X 
' binary-digits 'B 


REAL digit-list . digit-list [LE+/- digit-list] 
" hex-digits 'XR 
BOOLEAN FALSE/TRUE 
CHAR EBCDIC character in single quotes 
string EBCDIC characters in single quotes 
' hex-digits 'XC 
array id € expression [: expression] 
» expression L[: or eaevend il. 


record id ( expression L, expression]. 


set-constructor refers to an operand that describes the values of a set. 
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[C expression [ .. expression ] 
{ , expression [ .. expression ] ]... ] 


funetion-call refers to the invocation of a function. 
id [ € expression-comma-list ) ] 
paranthesized-expression is used to override the normal precedence of operators. 


€ expression ) 


1.1.9 Special Symbols 


es 


addition and set union operator 

subtraction and set difference operator 

multiplication and set intersection operator 

division operator, REAL results only 

BOOLEAN not, one's complement on INTEGER 

or set complement 

BOOLEAN or, logical or on INTEGER 

BOOLEAN and, logical and on INTEGER 

BOOLEAN xor operator, logical xor on INTEGER 
and set exclusive union 

equality operator 

less than operator 

less than or equal operator 

greater than or equal operator 

greater than operator 

not equal operator 

right logical shift on INTEGER 

left logical shift on INTEGER 

catenation operator 

assignment symbol 

period to end a module 

field separator in a record 

comma, used as a list separator 

colon, used to specify a definition 

semicolon, used as a statement separator 

subrange notation 

quote, used to begin and and string constants 

pointer symbol 

left parenthesis 

right parenthesis 

left square bracket 

right square bracket 

comment left brace (standard) 

comment right brace (standard) 

comment left brace (alternate form) 

comment right brace (alternate form) 


RO RO—— 
Ro 


VVAAL 
bout 


we oe 


KN WHY yew ne «- 


1.1,10 Identifiers 


Identifiers are composed of the letters "a" through "2", the digits "0" through "9" 
and the special characters "_" and "$". An identifier must begin with a letter or 
"S" and must be unique in the first 16 positions. There is no distinction between 
the an upper case letter and its lower case equivalent. 
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1.1.11 The Not Operator 


&& (xor) 


boolean not 

logical one's 
complement 

complement 


multiplication 


real division 


integer division 

modulo 

boolean and 

logical and 

set intersection 

string catenation 

logical left shift 

logical right 
shift 


addition 


set union 
subtraction 


set differenca 
boolean or 
logical or 
boolean xor 
logical xor 
exclusive union 


BOOLEAN 
INTEGER 


set of t 


INTEGER 
SHORTREAL 
REAL 
mixed 
INTEGER 
SHORTREAL 
REAL 
mixed 
INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 
INTEGER 
INTEGER 


INTEGER 
SHORTREAL 
REAL 
mixed 

set of t 
INTEGER 
SHORTREAL 
REAL 
mixed 

set of t 
BOOLEAN 
INTEGER 
BOOLEAN 
INTEGER 
set of t 


BOOLEAN 
INTEGER 


seat of t 


INTEGER 
SHORTREAL 
REAL 

REAL 

REAL 
SHORTREAL 
REAL 

REAL 
INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 
INTEGER 
INTEGER 


INTEGER 
SHORTREAL 
REAL 

REAL 

sat of t 
INTEGER 
SHORTREAL 
REAL 

REAL 

set of t 
BOOLEAN 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
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1.1.14 Relational Operators 


1.1.15 Reserved Words 


and end of 

array file or 

assert for othernise 
begin function packed 
case goto procedure 
const if program 


continue in range 
label record 
leave ref 
mod repeat 
nil return 
not set 


1.1.16 Predefined Constants 


ALFALEN length of type ALFA, value is 8 

ALPHALEN length of type ALPHA, valua is 16 

FALSE constant of type BOOLEAN, FALSE < TRUE 

MAXINT maximum value of type INTEGER: 2147483647 

MAXREAL maximum value of type REAL: °7FFFFFFFFFFFFFFF*XR 

MININT minimum value of type INTEGER: -2147483648 

MINREAL minimum non-zero value of type REAL: '0010000000000000'°XR 
TRUE constant of type BOOLEAN, TRUE > FALSE 


1.1.17 Predefined Types 


compare equal any set, scalar, pointer 

or string 

<> (>=) not equal any set, scalar, pointar 
or string 

< less than scalar type or string 

<5 compare < or = scalar type or string 

<= subset set of ¢t 

> compare greater scalar type or string 

>= compare > or = scalar type or string 

>= superset set of t 

in set membership t and set of ¢ 


result 


BOOLEAN 


BOOLEAN 


BOOLEAN 
BCOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 


ALFA packed array[ 1..ALFALEN ] of CHAR 

ALPHA packed array[ 1..ALPHALEN J] of CHAR 

BOOLEAN data type composed of the values FALSE and TRUE 
CHAR character data type 
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INTEGER 
REAL 
SHORTREAL 
STRING 


STRINGPTR 


TEXT 


integer data type 
floating point represented ina 64 bit value 


floating point represented ina 32 bit value 


an array of CHAR whose length varies during execution up to a speci- 


fied maximum 


is a predefined type that points to a STRING whose maximum length is 


determined when the STRING is allocated with NEW 
file of CHAR 


1.1.18 Predefined Variables 


INPUT 
OUTPUT 


default input file 
default output file 


1.1.19 Predefined Functions 


The following symbols represent parameters in the descriptions 
of the predefined functions and procedures. 


ABS(x) 
ADDR(v) 
ARCTAN(X ) 
CHR(n) 
CLOCK 
COLS(f) 
COMPRESS(s) 
cos(x) 


an array variable 

any expression 

a file variable 

a positive integer expression 
pointer valued variable 

a string expression 

a type name or variable name 
a variable 

any arithmetic expression 


X<cetu ods An YW 
Hout tt th ah ve ke ant 


computes the absolute value "x" 

returns the address of variable "v" 

returns the arctangent of "x" 

returns the EBCDIC character whose ordinal value is "n" 
returns the number of micro-seconds of execution 
returns current column of file "f" 

replaces multiple blanks in "s" with one blank 


returns the cosine of "x" 


DELETE(S,n1[,n2]) returns "s" with the "n2" characters starting at position 


EOF(f) 
EOLN(f) 
EXP(x) 

FLOAT (n) 
HBOUND(al,n]) 
HIGHEST(t) 
INDEX(s1,52) 
LBOUND(al,n]) 


removed 
tests file "f" for end-of-file condition 


tests file "f" for aend-of-line condition 


May" 


computes the base of the natural log (e) raised to to the power "x" 


converts "n" to a floating point value 

determines the upper bound of array "a" 

determines the maximum value the type of a scalar "t" 
returns the location, if present, of "s2" in "sl" 


determines the lower bound of array "a" 
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LENGTH(s) 
LN(x) 
LOWEST(t) 
LTRIM(s) 
MAX(XE,x1...) 
MAXLENGTH(s} 
MIN(xE,x]...) 
oDD(n) 

ORD(x)}) 

PARMS 

PRED(x) 
RANDOM(n) 
ROUND( x) 
SIN(x) 
SIZEOF(t) 
SQRT(x) 
SQR(x) 

STR(a) 


determines the current length of string "s" 

returns the natural logarithm of the "x" 

determines the minimum value the type of a scalar "t" 

returns "s" with leading blanks removed 

determines the maximum value of a list of scalar expressions 
determines the maximum length of string "s" 

determines the minimum value of a list of scalar expressions 
returns TRUE if integer "n" is odd 

converts a scalar value "x" to an integer 

returns the system dependent invocation parameters 

obtains the predecessor of scalar expression "x" 

returns a pseudo-random number, "n" is the seed value or zero 
converts a floating point value to an integer value by rounding 
returns the sine of "x" 

determines the memory size of a variable or type "t" 

returns the square root of "x" 

returns the square of "x" 


converts array of characters "a" to a string 


SUBSTR(s,nil,n2]) returns the substring of "s" starting at "nl" with length "n2" 


succ(x) 
TRIM(S) 
TRUNC(x) 


obtains the successor of scalar "x" 
returns "s" with trailing blanks removed 


converts floating point expression "x" to an integer by truncating 


1.1.20 Predefined Procedures 


CLOSE( Ff) 
DATETIME(al,a2) 
DISPOSE(p) 

GET( Ff) 

HALT 

MARK(p) 
NEW(p,[,xl... 3} 
PACK(al,x,a2)} 
PAGEL(f)] 
PDSIN(f,s) 


PDSOUT(f,S) 


PUT(F) 


closes a file 

returns the current date in "ai" and time of day in "a2" 
deallocates a dynamic variable 

advances file pointer to the next element of input file "f" 
halts the programs execution 

creates a new heap, “p" designates the heap 

allocates a dynamic variable from the most recent heap 
copies array "ai" starting at index "n" to packed array "a2" 
skips to the top of the next page 


opens file "f" for input, where "s" designates the open options 
which must specify the member name 


opens file "f" for output, where "s" designates the open options 
which must specify the member name 


advances the file pointer to the next element of output file "f" 
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READ([f,Jvf£,v]...]) reads data from file "f" into variable "v" 


READLN([f,JvVI,vl1...]) reads variable "v" and then skips to end-of-line of TEXT file 


Wp 


READSTR(s,VL,vJ]...) reads data from string "s" into variable "v" 


RELEASE(p) 


RESET(fI,s]1) 
RETCODE(n) 
REWRITE(fI,S]) 
SEEK(f,n) 


TERMIN(fL,S]) 


TERMOUT(fI,5]) 


TOKEN(S,v) 
TRACE( Ff) 
UNPACK(al,a2,n) 
UPDATE(fL,S]) 


destroys one or more heaps, "p™" designates the last heap to be 
destroyed 


opens file "f" for input, "s" designates the optional open options 
sets the system return code 

opens file "f" for output, "s" designates the optional open options 
modifies the current position of file "f*' so that next GET Cor PUT) 
reads (Cor writes) record number "n", where record 1 is the first 


record of the file 


opens file "f" for input from the users terminal, "s" designates the 
optional open options 


opens file "f" for output from the users terminal, "s" designates 
the optional open options 


extracts tokens from string "s" updating starting position "v" 
writes the procedure and function invocation history to file "f" 
copies packed array "ai" to array "a2" beginning at index "n" 

opans file "f" for update -- a PUT immediately following a GET of a 


record of the file replaces that record; "s" designates the optional 
open options 


WRITECEf,Jel,e]...) writes the value of "x" to file "f" 


WRITELN(Cf,Jel,e]...) writas the value of "x" and then writes an end-of-line to TEXT 


file "f" 


WRITESTR(s,el,e@]...) writes the value of "e" to string "s" 


1.1.21 % Statements 


%CHECK 
%CPAGE n 


%INCLUDE 
“LIST ON/OFF 
“MARGINS mn 


%PAGE 

%PRINT ON/OFF 
“SKIP n 
“TITLE 


enables or disables execution time checking features. 


skips to the next page if less than "n" lines remain on the current 
page 


includes source code froma library. 
enables or disables the pseudo-assembler listing. 


resets the left margin of the source program to "m" and the right 
margin to "n", 


forces the source listing to start on a new page. 
enables or disables the source listing. 
inserts "n"™ blank lines into the source listing. 


specifies a title for the listing. 
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2.90 THE BASE VOCABULARY 


C 


2.1 IDENTIFIERS 


—>{letter} 


where: 
{letter} is '"A', 'B', 
{digit} is 'O0', '1', 
underscore is ‘'_' 


Identifiers are names given to vari- external routines. You must make sure 
ables, data types, procedures, func- that identifiers used as external names 
tions, named constants and modules. are unique in the first 8 characters. 
correct: incorrect: 

I 5K 

K9 NEW JERSEY 2.2 LEXICAL SCOPE OF IDENTIFIERS 

New_York 

AMOUNTS 


The area of the module where a partic- 

Valid and Invalid Identifiers ular identifier can be referenced is 
called the lexical scope of the identi- 
fier Cor simply scope). 


In general, scopes are dependent on the 


Pascal/VS permits identifiers of up to structure of routine declarations. 
16 characters in length. You may use Since routines may be nested within oth- 
longer names but Pascal/VS will ignore er routines, a lexical level is associ- 
the portion of the name longer than 16 ated with each routine. In addition, 
characters. You must assure identifiers record definitions define a lexical 
are unique within the first 16 scope for the fields of the record. 
positions. Within a lexical level, each identifier 

can be defined only once. A program 
There is no distinction between lower module is at level 0, routines defined 
and upper case letters within an identi- within the module are at level 1; in 
fier name. For example, the names 'AL- general, a routine defined in level i 
PHA', "alpha', and 'Alpha' are would be at level (Cit+t1). The following 
equivalent. diagram jllustrates a nesting 


structure. 
There is an implementation restrictions 
on the naming of external variables and 
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program M (level 0) 


procedure A (level 1) 
procedure B (level 2) 


type 


record 
Rl:... 
R2:... 

end; 


function C 
Clevel 3) 


The scope of an identifier is the entire 
routine Cor module) in which it was 
declared; this includes all routines 
defined within the routine. The follow- 
ing table references the preceding dia- 
gram. 
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identifiers 


declared in: are accessible in: 


Module M 
procedure A 
procedure B 
type R 
function Cc 
procedure D 
function X 
procedure Y 
procedure Z 


N<KODOWWYS = 


If an identifier is declared in a rou- 
tine which is nested in the scope of 
another identifier with the same name, 
then the new identifier will be the one 
recognized when its name appears in the 
routine. The first identifier becomes 
inaccessible in the routine. In other 
words, the identifier declared at the 
innermost level is the one accessible. 


The scope of a field identifier defined 
within a record definition is limited to 
the record itself. The scope of a 
record may be accessed by either field 
referencing (see "Field Referencing” on 
page 70) or with the with-statement (see 
"The With Statement" on page 102). 


The Pascal/VS compiler effectively 
inserts a prelude of declaratiuns at the 
beginning of every module it compiles. 
These declarations consist of the prede- 
fined types, constants, and routines. 
The scope of the prelude encompasses the 
entire module. You may re-declare any 
identifier that is predefined if you 
would like to use the name for another 
purpose. 


2. RESERVED WORDS 


Reserved Words 


and 

array 

assert 

begin function 

case goto 

const if 

continue in 
label 
leave 
mod 
nil 
not 


Those words marked by 
and may be used as identifiers when using LANGLVLCSTDRES). 


Pascal/VS reserves the identifiers 
shown above for expressing the syntax of 
the language. These reserved words may 
never be declared by you. Reserved 
words must be separated from other 
reserved words and identifiers by a spe- 


of 

or ‘ 
otherwise 
packed 
procedure 
program 
range 
record 
ref 
repeat 
return 
set 


"+" are not reserved in standard Pascal 


cial symbol, a comment, or at least one 


blank. 
A lower case letter is treated as equiv- 


alent to the corresponding upper case 
letter in a reserved word. 
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2.4% SPECIAL SYMBOLS 


Special Symbols 


addition and set union operator 
subtraction and set difference operator 


division operator, REAL result only 


BOOLEAN or, logical or on INTEGER 
BOOLEAN and, logical and on INTEGER 


and set exclusive union 


equality operator 

less than operator 

less than or equal operator 
greater than or equal operator 
greater than operator 

not equal operator 


< 
< 
> 
> 
< 


right logical shift on INTEGER 
left logical shift on INTEGER 
catenation operator 


assignment symbol 

period to end a module 

field separator in a record 
comma, used as a list separator 


colon, used to specify a definition 
subrange notation 
pointer symbol 


left parenthesis 
right parenthesis 
left square bracket 
right square bracket 


comment left brace (standard) 
comment right brace (standard) 
comment left brace (alternate form) 
comment right brace (alternate form) 


Symbol Reserved Word 
Special symbols. used by Pascal/VS are > not 
listed above. Several special symbols | or 
may also be written as a reserved word. & and 
These symbols are shown in the following && xor 


table. 
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semicolon, used as a statement separator 


multiplication and set intersection operator 


BOOLEAN not, one's complement on INTEGER or set complement 


BOOLEAN xor operator, logical xor on INTEGER 


quote, used to begin and end string constants 


2.5 COMMENTS 


Pascal/VS supports two forms of 
comments: '{ ... }' and '7*®...%7'. The 
curved braces are the standard comment 
symbol in Pascal. The symbols '(*' and 
'*)' are considered by the compiler to 
identical to left and right braces. The 
form of comment using '/*!' and '*/' js 
considered to be distinct from the form 
using braces. 


When the compiler encounters the symbol 
'{', jit will bypass all characters, 
including end-of-line, until the symbol 
'}t is encountered. Likewise, all char- 
acters following '/*%' will be bypassed 
until the symbol 'X*/' is detected. Asa 


result, either form may be used to 
enclose the other; for example 
7%,..4...32...%7 15 one comment. One use 


of these two forms of comments is to use 


one for ordinary comments and use the 
other to block out temporary sections of 
code: a '/*%...¥*/' comment could be used 
to indicate a temporary piece of code, 
or perhaps debugging statements. 


A comment may be placed anywhere in a 
module where a blank would be 
acceptable. 


7¥* 
if A = 10 then { this statement is 
for program 
debugging } 
WRITEC'*A IS EQUAL TO TEN'); 
x/ 


Example of a nested Comment 
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+e e+ 


++ 


2.6 CONSTANTS 


unsigned-~integer: 
>{digit} 


unsigned-constant: 


> f{unsigned-number} 


> {string}—_———__-> 
>fid: constant}————> 
> nil ———————"> 


constant: 


where: 
{binary-digit} is '0' or '1l'. 
{digit} is "QO" through '9'; 
{hex-digit} is '0' through '9' and 


Constants can be divided into several 
categories according to the predefined 
type to which they belong. An unsigned 
number will conform to either a REAL or 
an INTEGER. Strings will conform to the 
type STRING or packed arrayfl..n] of 
CHAR. In addition, if the string is one 
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eg SE aia , 
> + —yT unsigned-number }——> 
> -—_—_—> 


{character} is any EBCDIC character. 


> E > >{digit} > 
= + —>| Le 
> - —> 
unsi gned-number: 
> {unsi gned- integer} > eee 
LS freal-number}———_> 
string: 


> ' a ' > 
<—— {character} < 


> 


through 'F'; 


character in length, it will conform to 
the type CHAR. 


If a single quote is to be used within a 
string, then the quote must be written 
twice. Lower case and upper case let- 
ters are distinct within string con- 
stants. String literals are not 


J 


J 


EEE EE EEE EEE EEE EEE EEE HEHEHE HHH HHH 


permitted to extend past the end of line 
of a source line. Longer strings can be 
formed by catenating shorter strings. 


Nil is of a special type which will con- 
form to any pointer type. It represents 
a unique pointer value which is not a 
valid address. 


The constants TRUE and FALSE are prede- 


fined in the language and are of the 
standard type BOOLEAN. 

Integer hexadecimal constants are 
enclosed in quotes and suffixed with an 
"™<' or txh, Integer binary constants 
are enclosed in quotes and suffixed with 
a 'B' or 'b!. 


Hexadecimal constants may be used in any 


context where an integer constant is 
appropriate. If you do not specify 8 
hexadecimal digits (i.e. 4 bytes), Pas- 


cal/VS assumes that the digits not sup- 


plied are zeros on the left. For 
example, 'F'x is the value 15. 
Floating point hexadecimal constants 


are enclosed in quotes and suffixed with 


an '*XR' or 'xr't. Such constants may be 
used in any context where a real con- 
stant is appropriate. If you do not 
specify 16 hexadecimal digits Ci.e. 8 
bytes), Pascal/VS assumes that the dig- 


its not supplied are zeros on the right. 
For example, '4110'xr is the same as 
"411000000000000'xr. 


hexadecimal constants are 
enclosed in quotes and suffixed with an 
"XC' or 'xect. Such constants may be 
used in any context where a string con- 
stant is appropriate. There must be an 


String 


+e et 


+e te ee tse 


even number of digits within a hexadeci- 
mal string constant; that is, you must 


specify each character fully that is to 
be in the string. 

The symbol '‘'E' or te' when used in a 
real-numbar expresses ‘ten to the power 
of'. 


Pascal/VS permits constant expressions 
in places where the Pascal standard only 


permits constants. Constant expres- 
Sions are evaluated and replaced by a 
single result at compile time. See 


"Constant Expressions" on page 78 for a 
description of constant expressions. 


constant matches standard type 
INTEGER 
-500 INTEGER 
1.0 REAL 
314159E-5 REAL 
0EO REAL 
1,.0E10 REAL 
TRUE BOOLEAN 
"FFX INTEGER 
At CHAR 
"ABC! STRING 
'C1C2C2'xc STRING 
"GE800Q00FFFFFFFF'xr REAL 
"abc! STRING 
rr STRING 
peeryT CHAR 
roy CHAR 
ro STRING 
'Thats''s all ' STRING 


Examples of Constants 
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PERE EERE EE EE EEE EEE EEE EEE EERE EEE EEE EEE EEE EEE EEE EEE HE EEE EEE EEE HEHEHE 


+++ 


2.7 STRUCTURED CONSTANTS 


structured-constant: 


~o-y777? trecord-structure}—--7 SStS SRS SAS SSeS aS tees asses anes se eS Ssa= > 
--->{array-structure}---> 
record-structure: 
--->{id:type}---> ( ---7--- [r77? feonstant-expr}—--7 ---7--- de) SSSR SSeS > 
[eset 7] 
{------------ » fc oc ceo eee 
array-structure: 
--->{iditype}---> ¢ Z| 
< ——_ ee ee ee eee ee ee 
--7--7-->{ tant- J--7--> : { titi sappy) orc > 
fo ee (eee ee al 
rr er enn ee ene > { 
t¢------------------- Ce 4 
repetition: 
--->{constant-expr) --- 9-9 rn nr rr rrr renner nn > 
Note: the repetition must evaluate to a positive integer. 


constants 
The 


constants are 
of a structured type. 


Structured 
which are 


type of the constant is determined by 
the type identifier which is used in its 
definition. These constants may be used 


in constant declarations, value decla- 
rations or in executable statements. 


There are two kinds of structured con- 
stants: one is used for arrays and the 
second 15 used to specify records. 


Array constants are specified by a list 
of constant expressions where each 
expression defines one element of the 
array. See "Constant Expressions” on 
page 78 for a description 
of constant expressions. You may omit 
an element of the array within the list 
in which case the value of that element 
1s not defined. Elements may be omitted 
at the end of the array in which case 
the value of those elements are also not 
defined. You may follow the constant 
expression with a colon and a repetition 
expression; this is used to specify that 
the first constant expression is to be 
repeated. 


The second kind of structured constant 
is used to specify records. Record con- 


1 If the tag field 


PERE EEE HEE EEE EE EEE EEE EE HEHE H+ 


stants are specified by a list of con- 
stant expressions where each expression 
defines one field of the record in the 
order declared. You may omit a field of 
the record within the list by specifying 
nothing between two commas, in which 
case the value of that field is not 
defined. 


Values within the list may correspond to 
fields of a record's variant part. In 
order for the compiler to Know which 
variant is being referenced, the tag 
field value must be specified immediate- 
ly prior to those values which are to be 
assigned to the variant fields. (See the 
examples below.) The tag field must be 
specified even if it does not exist asa 
field. (This occurs when only a tag type 
is specified. )?} 


The type identifier that begins a struc- 
tured constant may be omitted if the 
structured constant is imbedded within 
another structured constant. This sim- 
plifies the syntax for structured con- 


stants which are multidimensional 
arrays or records with structured 
fields. 


is a "refer-back" type (see "Variant Part" on page 47) then 


it will need to be specified twice in the list: once to be assigned a value, 
and again to identify the variant being referenced. 
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type 
COMPLEX = record 


RE,IM: REAL 
end; 
VECTOR = arrayl1..7] of INTEGER; 
CARRAY = arrayl0..9] of nee ie 
TETRA = array[1..3,1..2,1..4] 
of INTEGER; 
const 


{ Structured Constants } 
THREEFOUR = COMPLEX(3.0,4.0); 


VECTOR_1 = VECTOR(7,0:5,1); 
VECTOR_2 = VECTOR(2,3,,4);3 
ZEROTETRA = 
TETRAC 
C €0°4):2 ), 
C €024),00:4) ), 
C €0,0,0,0),00,0,0,0) ) )3 


{the following two declarations 
are equivalent 
VECTOR_3 = CARRAYC 


VECTOR_& = CARRAY( 


Examples of Structured Constants 
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type 
FORM = CFCHAR,FINTEGER,FREAL, 


FSTRING); 
KONST = 
record 
SIZE: INTEGER; 
case F: FORM of 
FCHAR: CC: CHAR); 
FINTEGER: (I: INTEGER); 
FREAL: CR: REAL); 
FSTRING: ¢ 
case BOOLEAN of 
TRUE: ¢ 
LEN: packed 0..32767; 
A = ALPHA); 
FALSE: (S: STRING(16)); 
end 
= KONST(1,FCHAR,'A'); 
PI = KONSTC8, FREAL,3.14159); 
BLANK = 


‘ia ones FSTRING, FALSE," '); 
KONST(4, FSTRING, TRUE,4, 'XX*X!); 


Structured constants with 
variant record fields 
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3.0 STRUCTURE OF A MODULE 


module: 
T=? fprogram=modu le} 
~-->{segment-module}---> 


program-module: 


< 


Se ee a 
>{declaration}——> 
>{compound-statement} >. See ee eee 
--------- > 


declaration: 


>{label-del}—————-> 


>{constant-del} > 
>{type-del} > 
>{var-del} > 
--->{def-del}--------- > 
--->{static-del}------ > 


(coe ------- ( ae 
>froutine-dcl} > ss 
segment-module: 

---> SEGMENT --->{id}---> ; 4 


cs | 
A 
| 
| 
! 
| 
i) 
| 
| 
| 
| 
{ 
! 
| 
' 
| 
| 
| 
| 
' 
! 
| 
' 
| 


--->{constant-del}----> 
--->{type-dcel}-------- > 
~-->{var-del}--------- > 


| 

ae i= 

[ def-delis---+=-S= 
| 

| 

| 


Vv 


Vv 


ho tt 


--->{static-dcel}------ 
--->{value-del}------- > 


--->{routine-del}----- > 


r 
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A module is an independently compilable 
unit of code. There are two types of 
modules in Pascal/VS: the program module 
and the segment module. 


The program is the module which gains 
initial control when the compiled pro- 
gram is invoked from the system loader. 
It is effectively a procedure that the 


loader invokes. The body of a program 
module is identical to the body of a 
procedure. 


A segment module may be compiled as a 


unit independent of the program module. 
It consists of routines that are to be 
linked into the final program prior to 
execution. Data is passed to routines 
through parameters and external vari- 
ables. Segments are useful in breaking 
up large Pascal/VS programs into smaller 
units. 


The global automatic variables of the 
program module may be accessed in a seg- 
ment module. See "The Var Declaration" 
on page 28 for an explanation. 


The jdentifier following the reserved 
word “program must be a unique external 
name. The identifier following the word 
"SEGMENT" may be the same as one of the 
EXTERNAL routines in the segment or may 
be a unique external name. Thus, a 
function called SIN could be ina seg- 


Pascal/VS program 


modules 


program-module 


program EXAMPLE; 
I: INTEGER; 
for I:=0 ta 1000 do 
if I mod 7 = 0 then 
WRITELNC I:5, 
' IS DIVISIBLE BY SEVEN‘) 
end. 


Example of a Program Module 
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execution-library 


ment called SIN. An external name is an 
identifier for a program, segment, def 
or ref variable, EXTERNAL routine, MAIN 
procedure or a REENTRANT procedure. 


The optional identifier list following 
the program identifier is not used by 
Pascal/VS. The identifiers will be 
ignored. 


A program is formed by linking a program 
module with segment modules Cif any) and 
with the Pascal/VS execution library and 
libraries that you may supply. 


Pascal/VS allows declarations to be giv- 
en in any order. This is an extension 
to Pascal and is provided primarily to 
permit source that is INCLUDEd during 
compilation to be independent of any 
ordering already established in the mod- 
ule. The standard ordering for 
declarations is shown in the diagram for 
declarations. (For a description of the 
INCLUDE facility see "The %INCLUDE 
Statement" on page 150.) 


Every identifier must be predefined or 
declared by you before it jis used. 
There is one exception to this rule: a 


definition of a pointer may refer to an 
identifier before it is declared. The 
identifier must be declared later or a 
compile-time’ diagnostic will be pro- 
duced. 


SEGMENT COSINE; 
function COSINE 
(X = REAL } 
function COSINE; 


REAL; EXTERNAL; 


var S: REAL; 
begin 

§ := SINCX); 

COSINE := SQRTC1.0 - §*5) 
end; 


Example of a Segment Module 


J 


Pascal/VS provides you with 10 types of 
declarations: 


° label 

° const 

° type 

° var 

4.1 THE LABEL DECLARATION 


label-dcl: 
—> label >{label} > 3 
EZ 2a 


label: 


Note: 


A label declaration is used to declare 
labels which will appear in the routine 
and will be referenced by a goto state- 


ment within the routine. All labels 
defined within a routine must. be 
declared in a label declaration within 


the routine. 


A label may be either an unsigned inte- 
ger or an identifier. If the value is 
an unsigned integer it must be in the 
range 0 to 9999. 


tee e eet 


4.0 PASCAL/VS DECLARATIONS 


def 

ref 
static 
value 
procedure 


function 


> 


the values of the unsigned integer must be in the subrange 0..9999. 


Error_exit; 


A Label Declaration 
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4.2 THE CONST DECLARATION 


constant-dcl: 


+ —> const To = —>{constant-expr}—> ; Jy... 
< 


A constant declaration allows you to 
+ assign identifiers that are to be used 


+ as synonyms for constant expressions. const 

The type of a constant identifier is BLANK = 9% 

determined by the type of the expression BLANKS =! '; 

in the declaration. FIFTY = 50; 
A = FIFTY; 
B = FIFTY * 107(3+2); 
C_SQUARED = AXA + BXB; 
ORD_OF_A = ORDC'A"); 
PI = 3.14159265358; 
MASK = *8000'X | '0400°X; 
ALFALEN = 8; 
ALPHALEN = 16; 
LETTERS = [— "ATL.9Z", tat. .t2' J 
MAXREAL = '7FFFFFFFFFFFFFFF' xr; 


Constant Declarations 
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4,3 THE TYPE DECLARATION 


type-del: 


—> type Toe = ——>{type}——> ; > 
< 


A type declaration allows you to define 
a data type and associate a name to that 


type. Once declared, such a name may be type 
used in the same way as a predefined 
type name. { all of the following types } 


{ are predefined in Pascal/Vv§s } 


INTEGER = MININT. .MAXINT; 

BOOLEAN = CFALSE, TRUE); 

ALFA = packed array(1..ALFALEN] 
of CHAR; 

ALPHA = packed arrayl1..ALPHALEN] 
of CHAR; 

TEXT = file of CHAR; 


Type Declarations 
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4.4 THE VAR DECLARATION 


Syntax: 


var-dcl: 


The var declaration is used to declare 
automatic variables. Automatic vari- 
ables are allocated when the routine is 
invoked, and are de-allocated when the 
corresponding return is made. If the 
routine is invoked a second time, before 
an initial invocation completes (a 
recursive call), the local automatic 
variables will be allocated again ina 
stack-like manner. The variables allo- 
cated for the first invocation become 
inaccessible until the recursive call 
completes. 


Commas are used in the declaration to 
separate two or more identifiers that 
are being declared of the same type. 
This is a shorthand notation for two 
separate declarations. 


var 
I > INTEGER; 
SYSIN TEXT; 
X, 
Y, 
Zz > REAL; 
CARD : 
record 
RANK 1..13; 
pa CSPADE,HEART, DIAMOND, CLUB) 
end; 


Example of a Var Declaration 


Variables which are to be accessed 
across modules should be declared as def 
variables (see "The Def/Ref 
Declaration" on page 30), but if reen- 
trancy is required, then a mechanism is 
required that does not rely on static 
storage. 


2 That is, 
nesting level of the main program. 
3 That is, 


no way of checking the integrity. 
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—> var >{id} > : ——>{type}——> ; > 
Peto ee = 
< 


The global automatic variables of the 
main program? may be accessed from a 
segment module. The storage for auto- 
matic variables declared in the outer- 
most level of a segment are mapped 
directly on top of the main program glo- 
bal variables. Therefore, to access the 
main program globals, a segment module 
must have an identical copy of the main 
program's variable declarations. This 
mechanism is not as safe® and as conven- 
ient as using def variables. 


If the variables of the main program are 
to be accessable across modules then the 
“INCLUDE facility should be jncorpo- 
rated so that identical copies of the 
variable's declarations can be included 
in all modules. (See "The %INCLUDE 
Statement” on page 150). 


program MAIN; 


var 

I = INTEGER; 
Xx, 

Y > REAL; 


J : INTEGER; 
‘ {remainder of program module} 


SEGMENT SEG; 


var 

I > INTEGER; 
xX, 

Y + REAL; 


J > INTEGER; 
Sud {remainder of segment module} 


Example of a Var Declarations 
Shared between Programs and Segments 


those variables declared with the var construct in the outermost 


unpredictable errors can occur when the variables declared ina 
segment do not match those in the associated main program. 


The compiler has 


PO ee ne ee 


4.5 THE STATIC DECLARATION 


Syntax: 


static-del: 


The static declaration is used to 
declare static variables. The variables 
declared in this way are allocated prior 
to program execution and exist for the 


life of the program's execution. 


Static variables can be referenced 
according to the lexical scoping rules. 
Two static variables in different scopes 
are different variables even though they 
have the same name. 


Data in static variables that are local 
to a routine will be preserved over sep- 
arate invocations of the routine. ‘Such 
a routine called recursively will access 
the same instance of each static vari- 
able. 


PS ee oe 


Static variables may be initialized at 
compile-time by the use of a value dec- 
laration. 


Programs which modify static variables 
are not reentrant. 


static 
SYSPRINT TEXT; 
X,Y: REAL; 


Example of a Static Declaration 
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4.6 THE DEF/REF DECLARATION 


def-dcl: 


---pr77> def 


---> ref ---> 


The def/ref declarations are used to 


declare external variables. External 
variables are allocated prior to exe- 
cution and can be accessed from more 


than one module. All identifiers that 
are to be used as external names must be 
unique in the first etght characters. 


If an external variable with a partic- 


ular name is declared in several 
modules, a single common storage 
location will be associated with each 
such variable. An external variable 


must be declared with identical types in 
each module; the programmer is responsi- 
ble for assuring that the types are the 
same. 


The def declaration specifies that the 
program loader is responsible for gener- 
ating the common storage for the vari- 
able. The ref declaration specifies 
that storage for the variable is defined 
in another module (Cor in the runtime 
environment). Ref declared variables 
will remain unresolved until the encom- 
passing module is compiled and linked 
with a module in which the variable is 
declared as a def variable or defined in 
a non-Pascal CSECT or in an assembly 
language COM. The expected use of ref 
variables is to access external data 
declared in non-Pascal/VS programs such 
as those written in assembly language. 


A def or ref variable may be declared 
local to a routine; the same scope rules 
apply as for any other declared identi- 
fier. However, if the name of the vari- 
able is declared in another scope (even 
in another module) as a def or ref vari- 
able, both occurrences of the variable 
will reference the same storage. 


In the following example, the variable X 
in procedures A, B, and C references the 
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same storage; however, the variables X 
declared in segment P and procedure D 
each refer to storage that is separate 
from the external variable X. 


Def variables may be initialized at com- 
Pile-time by the use of a value declara- 
tion. 


Programs which modify def, ref, or stat- 
ic variables are not reentrant. 


SEGMENT M; 
procedure A; 
def X: REAL; { same as X in B } 
begin 
end; 
procedure B; 
def X: REAL; { same as X in A } 
begin 
end; . 
SEGMENT P; 
static X: REAL;{ local to P } 
procedure C; 
ref X: REAL; { same as X in A,B} 
begin 
end; 
procedure D; 
var X: REAL; { local to D } 
begin 
end; . 


Examples of Def and Ref Declarations 
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4.7 THE VALUE DECLARATION 


value-dcl: 


value-assignment: 


--->{variable}---> 


note: 
to constant expressions. 


The value declaration is used to specify 
an initial value for static and def var- 
jables. The declaration is composed of 
a list of value-assignment statements 
separated by semicolons. The assignment 
statements in a value declaration are of 
the same form as the assignment state- 
ments in the body of a routine except 
that all subscripts and expressions must 
be able to be evaluated at compile time. 


type 
COMPLEX = record 
RE,IM: REAL 


end; 
array[1..71] of INTEGER; 


VECTOR = 


static 
C: COMPLEX; 
V: VECTOR; 
V1: VECTOR; 


def 
I : INTEGER; 
Q : array[1..10] of COMPLEX; 
{ the following assignments will ; 
at compile time 


COMPLEX(3.0,4.0); 
VECTOR(1,0:5,7); 
VECTOR(,,,4)3 

23 

3*4-13 


0; 
3.1415926 7 2; 
1.414; 


Example of a Value Declaration 


If the variable contains subscripts, 


SEE EEEEE EEE EE EE EEE EEE HEHEHE HHH 


t= ---7--->{constant-expression} 
c 
--->{structured-constant}---> 


the subscripts are limited 


If a def variable is initialized with a 
value declaration in one module, you may 
not use a value declaration on that var- 
jable in another module. The compiler 
will not check this violation, however a 
diagnostic will be generated when you 
combine the modules into a single load 
module by the system loader. 


type 
CUBE = arrayl1..10,1..10,1..10] 
of REAL; 
static 
BLOCK CUBE: 


{ the following assignments will } 
{ take place at compile time 
value 
BLOCK z= 
CUBEC € €0.0:10):10 3:10 ); 


Example of Intializing 
a 3 Dimensional Array 
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Syntax: 


>{fid: type} 
>fenumerated-scalar-type} 
> {subrange-scalar-type} 

> farray-type} 


>{record-type} 


>{set-type} 


>{file-type} 
>{pointer-type} 


--->{string-type} 


A data type determines the kind of val- 
ues that a variable of that type can 
assume. Pascal/VS allows you to define 
new data types with the type 
declaration. The data type mechanism is 
a very important part of Pascal/VS. 
With it you can describe your data with 
great clarity. 


There are several mechanisms that can be 
used to define a type; each mechanism 
allows the new data type to have certain 
properties. All data types can be clas- 
sified as either scalar, pointer, or 
structured. 


You define the data type of a variable 
when the variable is declared. A previ- 
ous type declaration allows an identi fi- 
er to be associated with that type. Such 
an identifier can be used wherever a 
type definition is needed: ina variable 
declaration (var, static, def, or ref), 
as a parameter, in a procedure or func- 
tion, in a field declaration within a 
record definition, or in another type 
declaration. 


5.1 A NOTE ABOUT STRINGS 


Standard Pascal defines the term 
"string™ as a variable or constant which 
has an associated type of 
"packed array[1..n] of CHAR," where n is 
a positive integer constant. 


Pascal/V§ supports varying length 
strings; that is, strings which have 
lengths that vary at execution time. A 
variable may be declared as a varying 


+e ete ete 


5.0 TYPES 


length string with the predefined type 
STRING (see “The Type STRING” on page 
53). 


Throughout this manual the term "string" 


shall refer to an object of the prede- 
fined type STRING. 


5.2 TYPE COMPATIBILITY 


Pascal/VS supports strong typing of 
data. The strong typing permits 


Pascal/VS to check the validity of many 
operations at compile time; this helps 
to produce reliable programs at exe- 
cution time. Strong typing puts strict 
rules on what data types are considered 


to be the same. These rules, called 
type compatibility, requires you to 


carefully declare data. 


5.2.1 Implicit Type Conversion 


In general, Pascal/VS does not perform 
implicit type conversions on data. The 
only implicit conversions that 
Pascal/VS permits are: 


1. An INTEGER will be converted to a 
REAL CSHORTREAL) when one operand of 
a binary operation is an INTEGER and 
the other is a REAL (SHORTREAL). 


2. An INTEGER will be converted to a 
REAL CSHORTREAL) when assigning an 
INTEGER to a REAL CSHORTREAL) vari- 
able. 
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3. An INTEGER will be converted to a 


REAL CSHORTREAL) 


if it is used ina 

floating point divide operation 
Cts), 

4. An INTEGER will be converted to a 


REAL CSHORTREAL) if it is passed by 
value or passed by const to a param- 
eter requiring a REAL CSHORTREAL) 
value. 


5. A SHORTREAL will be converted to a 
REAL when one operand of a binary 
operation is a SHORTREAL and the 
other is a REAL. 


6. A SHORTREAL will be converted toa 
REAL when assigning a SHORTREAL to a 
REAL variable. 


7. A SHORTREAL will be converted to a 
REAL if it is passed by value or 
passed by const to ae parameter 
requiring a REAL value. 


will be converted to a 
‘packed array(1..n] of CHAR’ = on 
assignment. The string will be pad- 
ded with blanks on the right if it 
is shorter than the array to which 
it is being assigned. Truncation 
will raise a runtime error if check- 
ing is enabled. 


9. <A string being passed by value or 
passed by const to a formal parame- 
ter that requires a 
‘packed array(1..n] of CHAR' will 
be converted. The string will be 
padded with blanks on the right if 
it is shorter than the array to 
which it is being passed. Trun- 
cation will raise a runtime error if 
checking is enabled. 


8. <A string 


5.2.2 Same Types 


Two variables are said to ba of the same 


type if the declaration of the 

variables: 

e refer to the same type identifier; 

° or, refer to different type identi- 
fiers which have been defined as 


equivalent by a type definition of 
the form: 


type Tl = T2 
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5.2.3 Compatible Types 


Operations can be performed between two 
values that are of compatible types. 
Two types are said to be compatible if: 


° the types are the same; 

° one type is a subrange of the other 
or they are both subranges of the 
same type; 


° both types are strings; 


° one value is a string literal and 
the other is a ‘packed arrayll..n] 
of CHAR’; 

° one value is a string literal of one 


character and the other is a CHAR; 


® they are set types with compatible 
base types; 


° Or, they are both 
‘packed arrayli..n] of CHAR' with 
the same number of elements. 

Furthermore, any object which is of a 


set type is compatible with the empty 
set. And, any object which is a pointer 
type is compatible with the value nil. 


5.2.4 Assignment Compatible Types 


A value may be assigned to a variable if 
the types are assignment compatible. An 
expression E is said to be assignment 
compatible with variable V if: 


° the types are same type and neither 
isa file type; 


° Vois of type REAL and E 
ible with type INTEGER; 


1S compat- 


e V is a compatible subrange of E and 
the value to be assigned is within 
the allowabla subrange of V; 


° Vand E have compatible set types 
and all members of E are permissible 
members of V3; or, 


° Vis a ‘packed array[1..n] of CHAR’ 
and E is a string. 


( type 


x = arrayl 1..10 ] of 
INTEGER; 
DAYS = (MON, TUES, WED, THURS, 


FRI, SAT, SUN); 
WEEKDAY = MON .. FRI; 


var 

A: arrayl 1..10 ] of 
INTEGER; 

B : arrayl 1..10 ] of 
INTEGER; 

Cc, 

D: arrayl 1..10 1] of 
CHAR; 

E : X; 

Fo: X; 

W1: DAYS; 

W2: WEEKDAY 


is compatible 
with 


SLeMMVOwYS 
mo 
~~ 
mMmnoOoO 


1 
2 W2, Wl 


— Examples of Compatibility 
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5.3 THE ENUMERATED SCALAR 


enumerated-scalar-type: 


—> >{id} > ) 
a ice a ala 


An enumerated scalar is formed by list- 
ing each value that is permitted for a 
variable of this type. Each value is an 
identifier which is treated as a 
self-defining constant. This allows a 
meaningful name to be associated with 
each value of a variable of the type. 


type 
DAYS = (MON, TUES, WED, THURS, 
FRI, SAT, SUN); 
MONTHS = (JAN, FEB, MAR, APR, 
MAY, JUN, JUL, AUG, 
SEP, OCT, NOV, DEC); 
var 
SHAPE CTRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 
REC > pecord 
SUIT: (SPADE, HEART, 
DIAMOND, CLUB); 
WEEK: DAYS 
end; 
MONTH MONTHS; 


Enumerated Scalars 


An enumerated scalar type definition 
declares the identifiers in the enumer- 
ation list as constants of the scalar 


36 Pascal/VS Reference Manual 


type being defined. The lexical scope 
of the newly defined constants is the 
same as that of any other identifier 
declared explicitly at the same lexical 
level. 


These constants are ordered such that 
the first value is less than the second, 
the second less than the third and so 
forth. In the first example, MON < TUES 
< WED < ... < SUN. There is no value 
less than the first or greater than the 
last. 


The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 


details): 
Function Page 

ORD 128 
MAX 132 
MIN 132 
PRED 133 
succ 133 
LOWEST 125 
HIGHEST 125 

Notes: 

1. Two enumerated scalar type defi- 


nitions must not have any elements 
of the same name in the same lexical 
scope. 


2. The standard type BOOLEAN is defined 
as (FALSE, TRUE). 


5.4 THE SUBRANGE SCALAR 


>{constant}——> 


—>{constant-expr} 


an imate! | 
---> range --->{constant-expr}---> .. --- 


>{constant-expr}---> 


The subrange type is a subset of consec- 
utive values of a previously defined 
scalar type. Any operation which is 
permissible on a scalar type is also 
permissible on any subrange of it. 


A subrange is defined by specifying the 
minimum and maximum values that will be 
permitted for data declared with that 
type. For subranges that are packed, 
Pascal/VS will assign the smallest num- 
ber of bytes required to represent a 
value of that type. 


If the reserved word range is used in 
the subrange definition, then both the 
minimum and maximum values may be any 
expression that can be computed at com- 
pile time. If the range prefix is not 
employed then the minimum value of the 
range must be a simple constant. 


The following predefined functions 
operate on expressions of a scalar type 


(see the indicated section for more 
details): 
Function Page 

ORD 128 
MAX 132 
MIN 132 
PRED 133 
SUCC 133 
LOWEST 125 
HIGHEST 125 

Notes: 


1. A subrange of the standard type REAL 
15 not permitted. 


2. The number of values in a subrange 
of type CHAR is determined by the 
collating sequence of the EBCDIC 
character set. 


3. The lower bound of a subrange defi- 
nition that is not prefixed with 


‘range must be a simple constant 
instead of a generalized constant 
expression. 


const 
SIZE = 1000; 
type 
DAYS = (SU, MO, TU, WE, 
TH, FR, SA)3 
MONTHS = (JAN, FEB, MAR, APR, 
MAY, JUN, JUL, AUG, 
SEP, OCT, NOV, DEC); 
UPPER_CASE = 'A'® ., "2°; 
ONE_HUNDRED = 0... 99; 
CODES = range 
CHR(0)..CHRC255); 
INDEX = packed i SIZE+1; 
var 
WORK_DAY * MO .. FR; 
SUMMER > JUN .. AUG; 
SMALLINT 7 packed 0..255; 
YEAR > 1900 2000; 


Subranga Scalars 


The following example illustrates that 
two subrange types may be defined over 
the same base type. Operations are per- 
mitted between these two variables 
because they have the same base type. 


var : 
NEG > MININT .. -13 
POS D1 MAXINIT; 


Subranges with the Same Basa Type 
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5.9 PREDEFINED SCALAR TYPES 


5.5.1 The Type INTEGER 


The following table describes the oper- 
ations and predefined functions that 


apply to values which are the standard 
type INTEGER. 


: INTEGER 


pre-defined 
type represents the subset of whole num- 
bers as defined below: 


y 
INTEGER 


where MININT 
constant whose value 


CHRCx) 
PRED(x) 
SUCC(x) 
ODD{x) 
ABS(x) 
SQRCx) 
FLOATCx) 
MINC ) 
MAXC ) 
LOWEST(x) 


HIGHESTCx) 
ADDR(x) 
SIZEQF(x) 


type 
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is 


unary 
binary 
unary 

binary 
binary 
binary 


binary 
binary 


binary 
binary 
binary 
binary 
binary 
binary 


unary 

binary 
binary 
binary 
binary 


binary 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


function 
function 


function 


INTEGER is 
type in 


= MININT..MAXINT; 


provided as a 


returns the unchanged result of the operand 

forms the sum of the operands 

negates the operand 

forms the difference of the operands 

forms the product of the operands 

converts the operands to REAL and produces 
the REAL quotient 

forms the integer quotient of the operands 

forms the integer modulus of the operands 


(same as remainder if the arguments are positive) 


compares for equality 

compares for inequality 

compares for less than 

compares for less than or equal to 
compares for greater than or equal to 
compares for greater than 


returns one's complement on the operand 
returns ‘logical or! on the operands 
returns ‘logical and! on the operands 
returns ‘logical xor't on the operands 
returns the left operand value shifted 
left by the right operand value 
returns the left operand value shifted 
right by the right operand value 


returns a CHAR whose EBCDIC representation is x 

returns x-l 

returns xtl 

returns TRUE if x is odd and FALSE otherwise 

returns the absolute value of x 

returns the square of x 

returns a REAL whose value is x 

returns the minimum value of two or more operands 

returns the maximum value of two or more operands 

returns MININT or the minimum value of the range 
if x is a subrange of INTEGER 

returns MAXINT or the maximum value of the range 
if x is a subrange of INTEGER 

returns the location in memory of INTEGER 
variable x 

returns the number of bytes required for a value 
of the type of x, which is always 1, 2, 3, or 4 


Pascal/VS. This whose value is 2147483647. 
predefined type INTEGER 
32-bit values in 2's 
notation. 
Type definitions representing 
subranges may be prefixed 
a predefined INTEGER reserved word “packed! . 
is -2147483648 and declared with such a type, 


MAXINT is a predefined INTEGER constant 
That is, 
represents 
complement 


with 
For variables 
Pascal/VS 


will assign the smallest number of bytes 
required to represent a value of that 
type. The following table defines the 
number of bytes required for different 
ranges of integers. For ranges other 
than those listed, use the first range 
that encloses the desired range. Given 
a type definition T as: 


T = packed i..j; 


Size in|Alignment 
bytes 


BYTE 


type 


Range of 
i... j 
0..255 

-128..127 BYTE 
-32768..32767 HALFWORD 


0..65535 HALFWORD 


~8388608. .8388607 


BYTE 
0..16777215 BYTE 


otherwise FULLWORD 


} 


Notes: 


1. The operations of div and mod are 


defined as: 


A div B = TRUNCCA/B), B<>0 
A mod B = A-B¥CA div B), A>=0,B>0 
A mod B = B-abs(A) mod B, A<0,B>0 


B=0 when doing a div operation or 
B<=0 when doing a mod operation 
is defined as an error and will 
cause a runtime error message to 
be produced. 
2. The following operators perform 
logical operations: 


<< shift left logical 
>> shift right logical 
- 1's complement 

| logical inclusive or 
& logical and 

&& logical exclusive or 


The operands are treated as unsigned 
strings of binary digits. See "Logical 
Expressions" on page 80 for more details 
on logical expressions. 
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5.5.2 The Type CHAR 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type CHAR. 


CHAR 


= binary compares for equality 

$> or == binary compares for inequality 

< binary compares for left less than right 

<s binary compares for left less than or equal to right 

>= binary compares for left greater than or equal to right 

> binary compares for left greater than right 

ORD(x) function converts operand to an INTEGER based on ordering 
sequence of underlying character set. 

PRED(x) function returns the preceding character 
in collating sequence 

SUCC(x) function returns the succeeding character 
in collating sequence 

STR(x) function converts the operand to a STRING 

MIN ) function returns the minimum value of two or more operands 

MAX(¢ ) function returns the maximum value of two or more operands 

LOWEST(x) function returns the minimum value of the range of the 
character x 

HIGHEST(x)] function returns the maximum value of the range of the 
character x 

ADDR(x) function returns the location in memory of CHAR 
variable x 

SIZEQF(x) function returns the number of bytes required for a value 
of the type of a CHAR, which is always 1 


CHAR is a scalar type that consists of variable C to the EBCDIC code for the 
all of the values of the EBCDIC charac- latter A. 

ter set. Variables of this type occupy 

one byte of memory and will be aligned var C: CHAR; 

on a byte boundary. begin 

A single-character string constant will C z= "ASS 

be regarded as a CHAR constant if the eee 

context so dictates. For example, the end 


assignment statement shown below sets 
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5.5.3 The Type BOOLEAN 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type BOOLEAN. 


BOOLEAN 


operation form description 


returns TRUE 
otherwise 
returns TRUE 
returns TRUE 
returns TRUE 


unary 


binary 
binary 
binary 


compares for 
compares for 
compares for 
compares for 
compares for 
compares for 


binary 
binary 
binary 
binary 
binary 
binary 


returns 0 if 
returns TRUE 


function 
function 
function 
function 
function 
function 


LOWESTCx) 
HIGHEST(x) 
ADDR(x) 


SIZEOF(x) 


variable x 
function 


if the operand is FALSE, 
it returns FALSE 

if both operands are TRUE 

if either operand is TRUE 

if either, but not both operands are TRUE 


equality 

inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 


x is FALSE and 1 if x is TRUE 
if all operands are TRUE 
returns FALSE if all operands are FALSE 
returns FALSE by definition 

returns TRUE by definition 

returns the location in memory of BOOLEAN 


returns the number of bytes required for a value 


of the type of a BOOLEAN, which is always 1 


Binary Operations on BOOLEAN 


FALSE FALSE FALSE TRUE TRUE 


Vv 


< 
< 
< 
> 
> 
& 
| 
& 


Ro 


The type BOOLEAN is defined as a scalar 
whose values are FALSE and TRUE as 
though declared with the following type 
declaration: 


type 
BOOLEAN=C(FALSE, TRUE); 


Variables of this type will occupy one 
byte of memory and will aligned on a 
byte boundary. The relational operators 


FALSE TRUE TRUE 


Equivalence 
Exclusive Or 


Implication 


And 
Inclusive Or 
Exclusive Or 


form valid boolean functions as shown in 
the table of binary operations. 


Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving '&! 
Cand) and '|' Cor) such that the right 
operand expression will not be evaluated 
if the result of the operation can be 
determined by evaluating the left oper- 
and. For more details see "Boolean 
Expressions" on page 79. 
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5.5.4 The Type REAL 


The following table describes the oper- 


ations 


and predefined functions 


that 


apply to the standard type REAL. 


REAL 


unary 
binary 
unary 

binary 
binary 
binary 


NK tht + 


binary 
binary 
binary 
binary 
binary 
binary 


Vv 


< 
< 
< 
> 
> 


TRUNC(x) 
ROUND(x) 
ABS(x) 
SIN(x) 
cOS(x) 
ARCTANCx) 
LN(x) 
EXP (x) 
SQRTCx) 
$QR(x) 
MINC ) 
MAXC ) 
ADDR(x) 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


SIZEOF(x) function 


The type REAL represents floating point 
Variables of this type will occu- 
of memory and will be 
aligned on a double word boundary. 
done 


data. 
py eight bytes 


REAL arithmetic is 


returns the value of the operand 

forms the sum of the operands 

negates the operand 

forms the difference of the operands 
forms the product of the operands 

forms the REAL quotient of the operands 


equality 

inequality 

left less than right 

left less than or equal to 
left 
left 


for 
for 
for 
for 
for 
for 


the 
the 
the 
the 
the 
Cin 
the 


compares 
compares 
compares 
compares 
compares 
compares greater than right 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns the location 
variable x 


operand value rounded to an 
trigonomatric sine of x Cin 
natural logarithm of x 
square root of x 


the square of x 


in memory of REAL 


right 


greater than or equal to right 


operand value truncated to an INTEGER 


INTEGER 


absolute value of the operand 


radians) 


trigonometric cosine of x (in radians) 
radians) the arc tangent of x 


natural log base raised to the x power 


the minimum value of the operands 
the maximum value of the operands 


returns the number of bytes required for a value 


of the type of a REAL, which 


array by REAL. 


SUCC, PRED, ORD, 


All 


is always 8 


The predefined functions 
HIGHEST and LOWEST are 
not defined for type REAL. 


precision floating point. 
Type Conversion" on page 33. 


The type REAL has restrictions that oth- 


er scalar types do not have. You may 
not take a subrange of REAL nor index an 
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using double MAXREAL is a predefined constant whose 
See "Implicit value is the value of the largest float- 
ing point number representable on the 
machine, and MINREAL is a= predefined 


constant whose value is the value of the 
smallest non-zero floating point number 
representable on the machine. 


+eet 


+ 
+ 
+ 
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5.5.5 The Type SHORTREAL 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type SHORTREAL. 


SHORTREAL 


unary 
binary 
unary 
binary 
binary 
binary 


NRK LE Lt + 


for 
for 
for 
for 
for 
for 


binary 
binary 
binary 
binary 
binary 
binary 


compares 
compares 
compares 
compares 
compares 
compares 


< 
< 
< 
> 
> 


TRUNC (x) 
ROUND(x) 
ABS(x) 
SINCx) 
COS(x) 
ARCTAN( x) 
LNCx) 
EXP (x) 
SQRTCx) 
SQRCx) 
MIN¢ ) 
MAX¢ ) 
ADDR(x) 


the 
the 
the 
the 
the 
Cin 
the 


returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 

variable x 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


SIZEOF(x) function 


The type SHORTREAL represents floating 
point data. Variables of this type will 
occupy four bytes of memory and will be 
aligned on a word boundary. All SHORT- 
REAL arithmetic is done using single 
precision floating point instructions. 


Operations between data of type REAL and 
SHORTREAL will be performed using double 
precision floating point instructions. 
The SHORTREAL operand will be implicitly 
converted to a value of type REAL. A 
SHORTREAL may be passed as an operand to 


returns the value of the operand 

forms the sum of the operands 

negates the operand 

forms the difference of the operands 

forms the product of the operands 

forms the SHORTREAL quotient of the operands 


equality 

inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 


operand value truncated to an INTEGER 
operand value rounded to an INTEGER 
absolute value of the operand 
trigonometric sine of x Cin radians) 
trigonometric cosine of x Cin radians) 
radians) the arc tangent of x 

natural logarithm of x 


Sete eee eee eet 


natural log base raised to the x power 
square root of x 

the square of x 

the minimum value of the operands 

the maximum value of the operands 

the location 


in memory of SHORTREAL 


returns the number of bytes required for a value 
of the type of a SHORTREAL, 


which is always 4 


a function or procedure that expects its 


parameter to be of type REAL if the 
parameter passing mechanism for that 
parameter is value or const. See "Im- 


plicit Type Conversion" on page 33. 


The type SHORTREAL has restrictions that 
other scalar types do not have. You may 
not take a subrange of SHORTREAL nor 
index an array by SHORTREAL. The prede- 
fined functions SUCC, PRED, ORD, HIGHEST 
and LOWEST are not defined for type 
SHORTREAL. 
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5.6 THE ARRAY TYPE 


Syntax: 


array-type: 


> packed 
0 oeererrrerer 


> array [ Te? findex- 
<< < 


, 


index-type: 


>f{enumerated-scalar-type}——> 
—{—> tia: scalar-type}——————_> 
>{subrange-scalar-type} > 


The array type defines a list of homoge- 
neous elements; each element is paired 
with one value of the index. An element 
of the array is selected by a subscript. 
The number of elements in the array is 
the number of values potentially assuma- 
ble by the index. Each element of the 
array is of the same type, which is 
called the element type of the array. 
Entire arrays may be assigned if they 
are of the same type. 


Pascal/VS uses square brackets, '[’ and 
"1", jin the declaration of arrays. 
Because these symbols are not directly 
available on many I/0 devices, the sym- 
bols 'C(€.' and '.)' may be used as an 
equivalent to square brackets. 


Pascal/VS will align each element of the 
array, if necessary, to make each ele- 
ment fall on an appropriate boundary. A 
packed array will not observe the bound- 
ary requirements of its elements. Ele- 
ments of packed arrays may not be passed 
as var parameters to routines. 


An array which is defined with more than 


one index is said to be a 
multi-dimensional array. A 
multi-dimensional array is exactly 
equivalent to an array of arrays. In 


short, an array definition of the form 
arrayli,j,... lof T 
is an abbreviated form of 
arraylil of 
arraylj] of 


where i and j are scalar type defi- 
nitions. Thus, the first and second 
typa declarations in the example below 
are alternatives to the same structure. 
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type)? 1 of —> type) > 


a 


type 


MATRIX = arrayl 1..10, 1..10 1] of 
REAL; 


MATRIXO = arrayl 1..10 J of 
arrayl 1..10 ] of 
REAL; 
ABLE = array([ BOOLEAN] of INTEGER; 


COLOR 


CRED, YELLOW, BLUE); 


INTENSITY = packed array([COLOR] 
of REAL; 


ALFA = packed arrayl 1..ALFALEN] of 


R3 


Examples of Array Declarations 


There are two procedures available for 
conversion between a packed array and a 
similar but unpacked array. The prede- 
fined procedures PACK (see "PACK Proce~ 
dure” on page 124) and UNPACK (see 
"UNPACK Procedure” on page 124) are pro- 
vided for this purpose. 


5.6.) Array Subscripting 


Array subscripting is performed by plac~ 
ing an expression in square brackets 
following an array variable. The 
exprassion must be of a type that is 
compatible with the index type and eval- 
uata to one of the values of the index. 
See "Compatible Types" on page 34. The 
index may be any scalar type except REAL 
or SHORTREAL. 


J 


var 


M : MATRIX; 
HUE : INTENSITY; 
begin 


{ assign ten element array } 
MC1] 7= M[2]; 


{ assign one element of a two } 
{ ceneene? jerrey two ways 


MC1,1 = 3.14159; 
MELIEL 2= 3.14159; 
{ this is a reddish orange } 
HUELRED] 2 ; 
HUELYELLOW] = 0.3; 
HUE[TBLUEJ = 0.0; 

end 


Examples of Array Indexing 
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7. THE RECORD TYPE 


record-type: 


a record ——>{field-list}——> end 
> packed ——> 


field-list: 


 ? 
>{fixed-part} > 5 >{variant-part} > 5 > 
 aeeeoreeweoee.oa yd 5d 


fixed-part: 


>{field} > : ——>{type} > 
| | L. , <———_ | 
beeen eee EE eee > 
<———_—_————————__ +> < 


variant-part: 


>{range} > i ¢ >{field-list} > ) > 
pn Poeseeeee 
LL ° < 


, 


---> ( --->{constant-expr}---> ) ---> 


range: 


—_—> tconstant- expr} 
---> 0, 


--->{constant-expr}---> 


A record is a data structure which is used as names is the record type itself. 
composed of heterogeneous components; That is, every field name within a 
each element may be of a different type. record must be unique, even if that name 
Components of a record are called appears in a variant part. 
fields. 
+ A field of a record need not be named; 
+ that is, the field identifier may be 
+ missing. In such a case, the field only 
5.7.1 Naming of a Field + serves as padding; it can not be refer- 
+ enced. 


A 


field is referred to by the name of 


the field. The scope of the identifiers 
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teeeeet 


record 

A, 

B +: INTEGER; 
> CHAR; 

C =: CHAR 


{unnamed} 


DATE = record 


PERSON = record 
LAST_NAME, 
FIRST_NAME 
MIDDLE_INITIAL 
AGE 
EMPLOYED 
end; 


ALFA; 
CHAR; 
0..993 
BOOLEAN 


Simple Record Declarations 


5.7.2 Fixed Part 


i5 a series 
in every variable 


The fixed part of a record 
of fields that exist 
that is declared to be of that record 
type. The fixed part, if present, is 
always before the variant part. 


5.7.3 Variant Part 


The variant part of a record permits the 
defining of an alternative structure to 
the record. The record structure adopts 
one of the variants at a time. 
The variant part of a record is denoted 
with the case symbol. A tag field iden- 
tifier may follow. This field is a sca- 
lar value that indicates which variant 
i5 intended to be active. 


The tag field is a field in the fixed 
part of the record. When the tag field 
is followed by a type identifier, then 
the tag field defines a new field within 
the record. 


If the type identifier is missing, then 
the tag field name must be one which was 
previously defined within the record. 
This allows you to place the tag field 
anywhere in the fixed part of the 
record, 


A variant part of a record need not have 
a tag field at all. In this case, only a 
type identifier is specified in the case 


construct. You still refer to the vari- 
ant fields by their names but it is your 
responsibility to keep track of which 
variant is factive'’ Cji.e. contains valid 
data) during execution. 


In short, tag fields may be defined in 
the following ways: 


° "case I INTEGER of” results in I 
being a tag field of type INTEGER. 
° "case INTEGER of" means no tag field 


is present, the variants are denoted 
by integer values in the variant 
declaration. 


° "case I: of" means that I is the tag 
field and it must have been declared 
in the fixed part, the type of I is 


as given in the field definition of 
The following examples illustrate the 
three tag fields in complete record 
definitions. 
type 
SHAPE = CTRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 
COORDINATES = 
{ fixed part: } 
record 
X,Y REAL; 
AREA REAL; 
case § SHAPE of 
{ variant part: } 
TRIANGLE: 
(SIDE REAL; 
BASE REAL); 
RECTANGLE: 
(SIDEA,SIDEB REAL); 
SQUARE: 
CEDGE REAL); 
CIRCLE: 
CRADIUS REAL) 
end; 


A Record With a Variant Part 


The record defined as COORDINATES in the 
example above contains a variant part. 
The tag field is S, its type is SHAPE, 
and its value (whether TRIANGLE, RECTAN- 
GLE, SQUARE, or CIRCLE) indicates which 
variant is in effect. The fields SIDE, 
SIDEA, EDGE, and RADIUS would all occupy 
the same offset within the record. The 
following diagram illustrates how the 
record would look in storage. 
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fixed part: 


tag field: 


RADIUS 


Each column in the variant represents 
one alternative for the variant. 


If you preferred the tag field to be the 
first field instead of the fourth, you 
could define it as follows: 


COORDINATES = 
record 
S > SHAPE; 
X,Y > REAL; 
AREA REAL; 
case S of 
{ variant part: } 
TRIANGLE: 


(SIDE REAL; 
BASE REAL); 


RECTANGLE: 
(SIDEA,SIDEB 


SQUARE: 
CEDGE 


REAL); 


REAL); 


CIRCLE: 
CRADIUS REAL} 


and; 


Record with Back Reference 
Tag Field 


If you preferred the tag field to be 
absent altogether you could define the 
record as follows: 
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tHe tteeeeeeeeeeggeeeeeeeteese 


COORDINATES = 
record 
X,Y REAL; 
AREA REAL; 


case SHAPE of 
{ variant part: } 


TRIANGLE: 

(SIDE REAL; 

BASE REAL}; 
RECTANGLE: 

(SIDEA,SIDEB REAL); 
SQUARE: 

CEDGE REAL); 
CIRCLE: 

(RADIUS REAL} 

end; 


Record Variant with No Tag Field 


5.7.4 Packed Records 


The fields in a record are normally 
assigned offsets sequentially, padding 
where necessary for boundary alignment. 
In packed records, however, no such pad- 
ding is done. This may save storage 
within the record, but may degrade per- 
formance of the program. Fields of 
packed records may not be passed as var 
parameters to a routine. 


5.7.5 Offset Qualification of Fields 


Pascal/VS provides you a method of forc- 
ing the fields of a record to begin ata 
specified byte offset in the record. A 
field name may be followed by an integer 
constant expression enclosed jin paren- 
theses which represents the byte offset 
within the record that the field is to 
represent. All fields so specified must 
be in consecutive order according to 
offsets. If the offset is not 
specified, the field will be assigned 
the next offset that is required for 
boundary alignment. If an offset spec- 
ification attempts to assign an 
incorrect boundary for a field and the 
record is not packed, a compile time 
error will be raised. 


As an example of offset qualified fields 
within a record, consider a large con- 
trol block of 100 bytes, in which four 
fields at various offsets need to be 
referenced. 


tee e eet 


HEE EEE EEE EEE HEHEHE HEHEHE HHH 


byte 
displacement 


information 


0 field A Cinteger) 
36 field B (8 chars) 
80 field C (4 flags) 
92 field D Cinteger) 


The control block might be represented 
in Pascal/VS as follows: 


type 
FLAGS = set of 
(F1,F2,F3,F4); 
PADDING = packed arrayl1..41] of 


CHAR; 
CB = packed record 
A : INTEGER; 
BC 36) ALFA; 
C¢(80) FLAGS; 
D(92) INTEGER; 
PADDING 
end; 
var 
BLOCK : CB; 


A Record with Offset Qualified 
Fields 


Note: You cannot use an offset qualifier 
on the variant part tag field. If you 
wish the tag field to be at a certain 
offset, make the tag field a back refer- 
ence and have the last identifier of the 
fixed part have the same name as the tag 
field and put the offset qualifier on 
this last identifier. The example below 
give an illustration of this. 


type 
TAG = 
packed record 
A > BOOLEAN; 
BC2): BOOLEAN; 
case B : of 
TRUE: 
(CC = CHAR); 
FALSE: 
CD : REAL) 
end; 
var 
BLOCK TAG; 


Putting an Offset Qualifier on 
a Tag Field 
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5.8 THE SET TYPE 


Syntax: 


set-type: 


base-scalar-type: 


>{subrange-scalar-type} 


A variable whose type is a set may con- 


tain any combination of values taken 
from the base scalar _ type. A value is 
either in the set or it is not in. 

Note: Pascal/VS sets can be used in 
many of the same ways as bit strings 


(which often tend to be machine depend- 
ent). Each bit corresponds to one ele- 
ment of the base type and is set to a 
binary one when that element is a member 


of the set. For example, a set opera- 
tion such as intersection (the operator 
is '*') jis the same as taking the 'boo- 


lean and' of two bit strings. 


operation 


unary 


binary 


binary 
binary 
binary 
binary 
function 


forms the 
&& 
ADDR(x) 


forms an 


variable x 


SIZEOF(x) function 


Set complement produces a set that has 
all of the elements which are not in the 
set being complemented. Set union pro- 
duces a set which contains all of the 
elements which are members of the two 
operands. Set intersection produces the 
set that contains only the elements com- 
mon to both sets. Set difference 
produces the set which includes all ele- 
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a a set of ——> {base-scalar-type}—__—_——_—_> 
> packed ——> 


>{enumerated-scalar-type}——> 
—{—> tid: scalar-type} > —_____________________» 
> 


Set Operators 


returns the complement of the operand 


compares for equality 


binary compares for inequality 

binary returns TRUE if first operand is subset of 
second operand 

binary returns TRUE if first operand is superset of 
second operand 

binary TRUE if first operand (a scalar) is a member in 


the set represented by the second operand 


forms the union of two sets 
intersection of two sets 
forms the difference between two sets 
‘exclusive’ 
returns the location 


returns the number of bytes required for a value 
of the type of x 


type 
CHARS = set of CHAR; 
DAYSOFMON = packed set of 1..31; 
DAYSOFWEEK = set of MONDAY. .FRIDAY; 
FLAGS = set of 


(A,B,C,D,E,F,G6,H); 


Set Declarations 


The following table describes the oper- 
ations that apply to the variables of a 
set type. 


union of two sets 
in memory of a set 


ments from the left operand except those 
elements which are members of the right 
operand. Set exclusive union produces 
the set which contains all elements from 
the two operands except the elements 
which are common to both operands. The 
in operator tests for membership of a 
scalar within a set; if the scalar is 


not a permissible value of the set, then 
FALSE will be returned. 


The storage and alignment required for a 
set variable is dependent on the scalar 
type on which the set is based. The 
amount of storage required for a packed 
set will be the minimum number of bytes 
needed so that every member of the set 
may be assigned to a unique bit. Given 
a set definition: 
type S = set of BASE; 


where BASE is a scalar type which is 
not a subrange 


the ordinal value of the last member M 
which can be contained on the set is: 


M := ORDCHIGHESTCBASE)) 


The following table indicates the map- 
ping of a set variable as a function of 


Range of Size in Alignment 
M Bytes 


BYTE 
HALFWORD 
BYTE 
FULLWORD 


BYTE 


Unpacked sets based upon integer (or 
subranges of integers) will occupy 32 
bytes. The maximum value of a member of 
a set of integer may not exceed 255. 


The storage is the same for all unpacked 
sets of subranges of a base scalar type. 
The following illustrates this point. 


Given: 
type 

T = set of t; 

bs) = set of s; 
Where: 


t is a subrange of s. 


The types T and S have identical storage 
mappings. 
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5.9 THE FILE TYPE 


file-type: 


ee ee ee file of —>{type} 
> packed ——> 


All input and output in Pascal/VS use 
the file type. file is a structure 
consisting of a sequence of components 
where each component is of the same 
type. Variables of this type reference 
the components with pointers called file 
pointers. A file pointer could be 
thought of as a pointer into an 
input/output buffer. 


The association of a file variable to an 
actual file of the system is implementa- 
tion dependent and will not be described 
in this manual. Refer to the Program- 
mer'’s Guide for this information. 


Note: Declaring a file to be packed is 
legal, but has no effect on the file's 
storage requirements. 


type 
TEXT = file of CHAR; 
LINE = file of 


packed arrayl[1..80] of 
CHAR; 


PFILE = file of 
record 
NAME: packed 
arrayl[1..25] of 
CHAR; 


PERSON_NO: INTEGER; 

DATE_EMPLOYED: DATE; 

WEEKLY_SALARY : INTEGER 
end; 


File Declarations 


You access the file through predefined 

procedures and (functions (see "I/0 

Facilities" on page 105). They are: 

o GET (see "GET Procedure" on page 
109) 

e PUT (see "PUT Procedure" on page 
110) 


e EOF (see "EOF Function" on page 111) 
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EOLN (see "EOLN function" on page 
117) 


peer Csee "RESET Procedure" on page 
5 


REWRITE (see "REWRITE Procedure" on 
page 106) 


READ (see "READ and READLN 
Files)" on page 111) 


WRITE (see "WRITE and WRITELN (TEXT 
Files)" on page 114) 


TERMIN (see "TERMIN Procedure" on 
page 106) 


TERMOUT Csee "TERMOUT Procedure" on 
page 107) 


ae Csee "PDSIN Procedure" on page 


PDSOUT (see "PDSOUT Procedure" on 
page 108) 


UPDATE (see "UPDATE Procedure" on 
page 108) 


SEEK (see "SEEK Procedure" on page 
110) 


COLS (see “"COLS Function" on page 
118) 


(TEXT 


PAGE (see "PAGE Procedure" on page 
117) 


CLOSE (see "CLOSE Procedure” on page 
109) 


OUTPUT and INPUT are predefined TEXT 


files. 


Pascal/VS enforces the following 


restrictions on the file type: 


1. 


A file may be passed by var or 
passed by const, but never by value 
to a procedure or function. 


A file may not be contained within a 
file. 
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5.10 PREDEFINED STRUCTURE TYPES 


5.10.1 The Type STRING 


string-type: 


The type STRING is defined as a 
‘packed arrayll..n] of CHAR’ whose 
length varies at execution time up to a 
compile time specified maximum. The 
length of the array is obtained during 
execution by the LENGTH function (see 
"LENGTH Function" on page 139). The 
length is managed implicitly by the 
operators and functions which apply to 
STRINGS. The maximum length of the 
array is obtained during execution by 
the MAXLENGTH function (see "MAXLENGTH 
Function" on page 139). The length of a 
STRING variable is determined when the 


variable is assigned. By definition, 
string constants belong to the type 
STRING. 


A STRING variable may be subscripted 
with an integer expression to reference 
individual characters. A subscript of 1 
will reference the first character. The 
subscript value must not be less than 1 
nor exceed the string's length. 


The constant expression which follows 
the STRING qualifier in the type defi- 
nition is the maximum length that the 
string may obtain and must be in the 
range of '1 .. 32767'. 


Any variable of a STRING type is compat- 
ible with any other variable of a STRING 
type; that is, the maximum length field 
of a type definition has no bearing in 
type compatibility tests. 


Implicit conversion is performed when 
assigning a STRING to a variable whose 
type is ‘packed array[1..n] of CHAR". 
All other conversion must be done 
explicitly. 
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+++ 


The assignment of one string to another 
may cause a run time error if the actual 
length of the source string is greater 
then the maximum length of the target. 
Pascal/VS will never truncate implicit- 
ly. 


function GETCHAR( 
const S$ 
IDX 


STRING; 
INTEGER) CHAR; 
begin 
{ Subscripted string variable } 
GETCHAR := SLIDX] 


end; 


STRING(10); 
STRINGC5); 
C: CHAR; 


= "MESSAGE:'; 
2= GETCHAR(S1,4); 
C assigned 'S' } 


"FIVE'; 
GETCHAR(S2,2); 
assigned 'I' } 


ie) 
meu 


Usage of STRING Variables 


The following table describes the oper- 
ations and predefined functions that 
apply to the variables of type STRING. 
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STRING 
= binary compares for equality 
<> or = binary compares for inequality 
< binary compares for left less than right+ 
<= binary compares for left less than or equal to right+x 
>= binary compares for left greater than or equal to right+* 
> binary compares for left greater than righttx 
| binary concatenates the operands 
LENGTH function returns the length of the STRING 


(see "LENGTH Function” on page 139). 
MAXLENGTH function returns the declared length of a STRING 
(see "MAXLENGTH Function" on page 139). 


LBOUND function returns the value 1, STRINGS always have a lower 
bound of one (see "LBOUND Function" on page 126). 
HBOUND function returns the declared maximum number of elements of 
the string (see "HBOUND Function" on page 126). 
SUBSTR function returns a specified portion of a STRING 
(sea "SUBSTR Function" on page 140). 
DELETE function returns a STRING with a portion removed 
(see "DELETE Function" on page 140). 
TRIM function returns a STRING with trailing blanks removed 
(see "TRIM Function" on page 141). 
LTRIM function returns a STRING with leading blanks removed 
Csee "LTRIM Function™ on page 141). 
COMPRESS function returns a STRING with multiple blanks removed 
(see "COMPRESS Function" on page 142). 
INDEX function locates a STRING in another STRING 
(see "INDEX Function" on page 142). 
ADDR(x) function returns the location in memory of STRING 
variable x 
SIZEOFC(x) function returns the number of bytes required for a value 
of the type of x 
READSTR procedure] converts a STRING to values by assigning variables 
(see "READSTR"” on page 143). ) 
WRITESTR procedure| produces a STRING by converting the internal 


values of a list of expressions 
Csee "WRITESTR™ on page 144). 


x If two STRINGs being compared are of different lengths, the 
shorter is assumed to be padded with blanks on the right 
until the lengths match. 

+ Relative magnitude of two strings is based upon the collating 
sequence of EBCDIC. 
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STRING Conversions with Relational Operators 


RIGHT OPERAND 


relational 
operations 


CHAR 


packed 
arraylLl..n] of 


STRING 


L 
E 
F 
T 
0 
P 
E 
R 
A 
N 
D 


allowed 


not permitted 


use STR on 
the CHAR 


STRING 


not permitted use STR on 
the CHAR 


okay if the use STR on 
types are the array 
compatible 


use STR on allowed 
the array 


STRING Conversions on Assignment 


assignment 


packed 
arrayll..n] of 
CHAR 


STRING 


allowed 


not permitted 


use STR to 
convert CHAR 
to a STRING 


packed 
arrayl[1..n] of 
CHAR STRING 


not permitted use string 
indexing to 
obtain char 


okay if the okay, STRING is 

types are converted. If 

compatible truncation is 
required, then 
an error results. 


use STR to allowed 
convert array 
to a STRING 
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5.10.2 The Type ALFA 


The standard type ALFA is defined as: 


const 
ALFALEN = 8; 


type 
ALFA = packed 


arrayl1..ALFALEN] of 


CHAR; 


Any "packed array[1..n] of CHAR’, 
including ALFA, may be converted to type 
STRING by the predefined function STR. 
The following table describes the oper- 
ations and predefined functions that 
apply to the variables of the predefined 
type ALFA. 


tee te Het 


operation form description 


binary 
binary 
binary 
binary 


binary 

binary 

function 
ADDR(x) function 


SIZEQF(x) function 


compares 
compares 
compares 
compares 
compares 
compares 
converts 


for 
for 
for 
for 
for 
for 
the 


equality 

inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 

ALFA to a STRING 


returns the location in memory of ALFA 
variable x 

returns the number of bytes required for a value 
of the type of an ALFA, which is always 8 
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teeter 


5.10.3 The Type ALPHA 
The standard type ALPHA is defined as: 
const 

ALPHALEN = 16; 
type 

ALPHA = packed 

arrayl1..ALPHALEN] of 
CHAR; 


+e eeeet 


= binary compares for equality 
binary compares for inequality 
binary compares for left less than right 
binary compares for left less than or equal to right 
binary compares for left greater than or equal to right 
binary compares for left greater than right 
STR(x) function converts the ALPHA to a STRING 
ADDR(x) function returns the location in memory of ALPHA 
variable x 
SIZEOF(x) function returns the number of bytes required for a value 
of the type of an ALPHA, which is always 16 


Any "packed array[1..n] of CHAR', 
including ALPHA, may be converted to 
type STRING by the predefined function 
STR. The following table describes the 
operations and predefined functions 
that apply to the variables of the pre- 
defined type ALPHA. 
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5.10.4 The Type TEXT 


The standard type TEXT is defined as: 


type 


TEXT = file of CHAR; 


In addition to the predefined procedures 
to do input and output, Pascal/VS 
defines several procedures which oper- 
ate only on files of type TEXT. These 
procedures perform character to jinter- 
nal representation CEBCDIC) conversions 
and give you some control over output 
field lengths. The predefined routines 
that may be used on TEXT files are: 


° GET ("GET Procedure" on page 109) 


PUT ("PUT Procedure" on page 110) 
° EOF C"EOF Function" on page 111) 
° EOLN C"EOLN function™ on page 117) 


° RESET C*RESET Procedure" on page 
105) 

° REWRITE C"REWRITE Procedure" on 
page 106) 


° READ C"READ and READLN (TEXT Files)" 
on page 111) 
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° READLN CV"READ and READLN- (TEXT 
Files)" on page 111) 

° WRITE ("WRITE and WRITELN (TEXT 
Files)" on page 114) 

° WRITELN C"WRITE and WRITELN (TEXT 


Files)" on page 114) 
° PAGE ("PAGE Procedure" on page 117) 


° CLOSE 
109) 


C"CLOSE Procedure" on page 


° COLS C"COLS Function" on page 118) 


e PDSIN C¢(™"PDSIN Procedure" on page 
107) 

° PDSOUT ("PDSOUT Procedure" on page 
108) 

° TERMIN C"™TERMIN Procedure" on page 
106) 

° TERMOUT C'™TERMOUT Procedure™ on 
page 107) 


Pascal/VS predefines two TEXT variables 
named OUTPUT and INPUT. You may use 
these files without declaring them in 
your program. 


Cc 


SHH EH HEE HH 


5.11 THE POINTER TYPE 


pointer-type: 
—> a —>{id: type} 


Pascal/7VS allows variables to be created 
during program execution under your 
explicit control. These variables, 
which are called dynamic variables, are 
generated by the predefined procedure 
NEW. NEW creates a new variable of the 
appropriate type and assigns its address 
to the argument of NEW. You must 
explicitly deallocate a dynamic vari- 
able; the predefined procedures DISPOSE 
and RELEASE are provided for this pur- 
pose. 


Dynamic variables are created in an area 
of storage called a heap. A new heap is 
created with the MARK predefined proce- 
dures; a heap is released with the 
RELEASE predefined procedure. An ini- 
tial heap is allocated by Pascal/VS. 
All variables that were allocated in a 
heap are deallocated when the heap is 
released. An attempt to use a dynamic 
variable that has been deallocated (ei- 
ther via DISPOSE or RELEASE) is an 
error. 


Pascal/VS pointers are constrained to 
point to a particular type. This means 
that on declaration of a pointer, you 
must specify the type of the dynamic 
variable that will be generated by NEW 
or referenced. 


Pascal/VS defines the named constant nil 
as the value of a pointer which does not 
point to any dynamic variable (Cempty 
pointer). Nil is type compatible to 
every pointer type. 


The only operators that can be applied 
to variables of pointer type are the 


test for equality and inequality. The 
predefined function ORD may be applied 
to a pointer variable; the result of the 
function is an integer value which is 
equal to the address of the dynamic var- 
jable referenced by the pointer. There 
is no function in Pascal/7VS to convert 
an integer into a pointer. 


type 
PTR = @ ELEMENT; 
ELEMENT = record 


PARENT PTR; 

CHILD PTR; 

SIBLING: PTR 
end; 


A Pointer Declaration 


This example illustrates a data types 
that can be used to build a tree. With 
this structure the parent node contains 
a pointer to the eldest child, the 
eldest points to the next sibling who 
points to the next, and so forth. 


In the above example type ELEMENT was 
used before it was declared. Referenc- 
ing an identifier prior to its declara- 


tion is generally not permitted in 
Pascal/VS. However, a type identifier 
which is used as the base type to a 


pointer declaration is an exception to 


this rule. 
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5.12 THE TYPE STRINGPTR 


Variables of type STRING 
lengths associated with them: 


have two 


e The current length which defines the 
number of characters in the string 
at any instant in time. 


e The maximum length which defines the 
storage required for the string. 


The predefined type STRINGPTR defines a 
pointer to a string which has no "maxi- 
mum length" associated with it until 
execution time. The procedure NEW is 
used to allocate storage for this type 
of pointer; an integer expression is 
passed to the procedure that specifies 


the maximum length of the allocated 
string. See “NEW Procedure" on page 
121. 
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var 
P : STRINGPTR; 
Q > STRINGPTR; 
I > 0..32767; 
begin 


NEW(P,(I+1) div 2); 
WRITELN( MAXLENGTH(P@) ); 


{writes '30' to output } 
NEWCQ, 533 
Qa 2 = '1234567890'; 
{causes a truncation } 
{error at execution } 
end 


Using the Predefined type STRINGPTR 


13__ STORAGE NG LIGNMENT 


For each variable declared with a par- 
ticular type, Pascal/VS allocates a spe- 
cific amount of storage on a specific 
alignment boundary. The Programmer's 
Guide describes implementation 
requirements and defaults. 


Pascal/VS provides the packed record 
feature in which all boundary alignment 


is suppressed. Fields of a= packed 
record are allocated on the next byte, 
ignoring alignment requirements. 


Packed data occupies less space and is 
more compact but may increase the exe- 
cution time of the program. Moreover, a 
field of a packed record or an element 
of a packed array may not be passed by 
read/write reference (var) to a routine. 
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6.0 ROUTINES 


routine-del: 


—— > {procedure-headi ng} ——_____————> 
——> {function-headi 3 
<— ee * < 


-—> {directive}——> }o aa 


(<ooo] 
> 


{declaration}——> 


——> {compound-statement}——> ; > 


procedure-heading: 


—> procedure —>{id)——>{formal-parameters}———________L—_> 


function-heading: 
—> function ——>{id}——>{formal~parameters}——> : ——>(id:type}——————> 


directive: 


FORWARD). ————__________________> > 
EXTERNAL -----~-----------~~------------------- > 
FORTRAN ~-------~------------------------------ > 
MAIN ------------------------------------------ > 
REENTRANT ~~-------~----------------------------- > 


formal-parameters: 
> ¢ >{formal} > ) > 
Le pn ae | 
> 


formal: 


{id} > : — >f{iditype} 
— id 7 — 


> {procedure-heading} 


> (funeti on-head ing }—--AA TO _ 


There are two categories of routines: flexibility of the language: functions 
Procedures and functions. Procedures add to your ability to express data 
should be thought of as adding new transformation in expressions. 
statements to the language. These new 

statements effectively increase the Routines can return data to the caller 
language to a superset language contain- by altering the var parameters or by 
ing statements tailored to your assigning to variables that ara common 
specialized needs. Functions should to both the invoker and the invoked rou- 
also be thought of as increasing the tine. In addition, functions also 
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return a value to the invoker 


return from the function. 


upon 


6.1 ROUTINE DECLARATION 


Routines must be declared prior to their 
use. The routine declaration consists 
of the routine heading, declarations and 
one compound statement. 


The heading defines the name of the rou- 
tine and binds the formal parameters to 
tha routine. The heading of a function 
declaration also binds the function name 
to the type of value returned by the 
function. Formal parameters specify 
data that is to be passed to the routine 
when it is invoked. The daclarations 
are described in chapter 4. The com- 
pound statement will be executed when 
the routine is invoked. 


6.2 ROUTINE PARAMETERS 


Formal parameters are bound to the rou- 
tine when the routine is defined. The 


formal parameters define what kind of 
data may be passed to the routine when 
it is invoked. These parameters also 
specify how the data will be passed. 


When the routine is invoked, a parameter 
list is built. At the point of invoca- 


tion the parameters are called the actu- 


al parameters. 


Pascal/VS permits parameters to be 
passed in following ways: 


° pass by value 

° pass by read/write reference (var) 

° pass by read only reference (const) 
conformant string (var or 


° pass” by 
const) 


° formal routine parameter 


6.2.1 Pass by Value Parameters 


Pass by value parameters can be thought 
of as local variables that are initial- 
ized by the caller. The called routine 
may change the value of this kind of 
parameter but the change is never 
reflected back to the caller. Any 
expression, variable or constant (ex- 
cept of file type) may be passed with 
this mechanism. 
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6.2.2 Pass by Var Parameters 


Pass by Var (variable) is also called 
pass by reference. Parameters that are 
passed by var reflect modifications to 
the parameters back to the caller. 
Therefore you may use this parameter 
type as both an input and output parame- 
ter, The use of the var symbol in a 
parameter indicates that the parameter 
is to be passed by read/write reference. 
Only variables may be passed by this 
mechanism; expressions and constants 
may not. Also, fields of a packed 
record or elements of a packed array may 
not be passed as var parameters in stan- 
dard Pascal (but may be in Pascal/VS). 


6.2.3 Pass by Const Parameters 


Parameters passed by const may not be 
altered by the called routine. Also you 
should not modify the actual parameter 
value while the call to the routine has 
not yet completed. If vou attempt to 
alter the actual parameter while it is 
being passed by const, the result is not 
defined. This method could be called 
pass by read only reference. The param- 
eters appear to be constants from the 


called routine's' point of view. Any 
expression, variable or constant may be 
passed by const (fields of a packed 


record and elements of a packed array 
may also be passed). The use of the 
"const" reserved word in a parameter 
indicates that the parameter is to be 
passed by this mechanism. With parame- 
ters which are structures (such as 
strings), passing by const is usually 
more efficient than passing by value. 


6.2.4 Formal Routine Parameters 


A procedure or function may be passed to 
a routine as a formal parameter. Within 
the called routine the formal parameter 
may be used as if it were a procedure or 
function. 


6.2.5 Conformant String Parameters 


It is often desirable to call a proce- 
dure or function and pass in a string 
whose declared length does not match 
that of the formal parameter. The con- 
formant string parameter is used for 
this purpose. 


The conformant string parameter is a 
pass by const or pass by var parameter 
with a type specified as STRING without 
a length qualifier. Strings of any 
declared length will conform to such a 


J 


9 


+ 
+ 
+ 
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parameter. You can use the MAXLENGTH 
function to obtain the declared length. 
See "MAXLENGTH Function" on page 139. 


procedure TRANSLATE 
(var $ = STRING; 
const TABLE: STRING); 


. 32767; 
- ORDCHIGHESTCCHAR) ) +1; 


= 1 to LENGTH(S) do 


>= ORDCSCII]) +1; 
; LENGTH(TABLE) then 
Fi ' 


el 


se 
SCI] += TABLELJ]; 


end; 
end; 


Example of Conformant Strings 


6.3 _ ROUTINE COMPOSITION 


There are six kinds of routines: 


. internal 
° FORWARD 

. EXTERNAL 
° FORTRAN 

° REENTRANT 
° MAIN 


The directive used to identi fy each kind 


of declaration is shown in upper case 
above. 
Note: A routine must be declared before 


it can be referenced. This allows the 
compiler to assure the validity of a 
call by checking parameter compatibili- 
ty. 


6.3.1 Internal Routines 


An internal routine may be invoked only 
from within the lexical scope that con- 
tains the routine definition. 


6.3.2 FORWARD Routines 


A routine declared FORWARD is the means 
by which you can declare the routine 
heading before declaring the declara- 
tions and compound statement. The rou- 
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tine heading is declared followed by the 
symbol ‘FORWARD’. This allows you to 
have a call to a routine prior to defin- 
ing the routine's body. If two routines 
are to be mutually recursive and are at 
the same nesting level, one of the rou- 
tines must be declared FORWARD. 


To declare the body of the FORWARD rou- 
tine, you declare the routine leaving 
off the formal parameter definition. 


6.3.3 EXTERNAL Routines 


An EXTERNAL routine 
function that can be invoked from out- 
side of its lexical scope (such as, 
another module). The EXTERNAL directive 
is used to specify the heading of sucha 
routine. While many modules may call an 
EXTERNAL routine, only one module will 
actually contain the body of the 
reutine. The formal parameters defined 
in the EXTERNAL routine declaration must 
match those in the module where the rou- 
tine is defined. An EXTERNAL routine 
declaration may refer to a Pascal/VS 
routine which is located later in the 
same module or located in another module 
or it may refer to code produced by oth- 
er means (such as assembler code). 


is a procedure or 


The following example illustrates two 
modules (a program module and a segment 
module) that share a single EXTERNAL 
routine. Both modules may invoke the 
routine but only one contains the defi- 
nition of the routine. 


program TEST; 
function SQUARE(X : 
EXTERNAL; 


begin 
WRITELNC SQUARE(C44) ); 
end . 


REAL) REAL; 


SEGMENT S;3 
function SQUAREC(X : 
EXTERNAL; 
function SQUARE; 
begin 
SQUARE := X * X 
end; 


Example of an EXTERNAL Function 


REAL) REAL; 


The body of an EXTERNAL routine may only 
be defined in the outermost nesting lev- 
el of a module; that is, it must not be 
nested within another routine. 


6.3.% FORTRAN Routines 


A FORTRAN routine is similar to an 
EXTERNAL routine in that it specifies a 
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routine that is defined outside the mod- 


ule being compiled. In addition, it 
specifies that the routine is a FORTRAN 
subprogram and therefore the con- 


ventions of FORTRAN are to be used. A 
FORTRAN routine is never defined within 
a Pascal/VS module. If you pass a 
literal constant to a FORTRAN subprogram 
by CONST, then you must assure that the 
FORTRAN subprogram does not alter the 
contents of parameter. In order to meet 
the requirements of FORTRAN you must 
obey the following restrictions: 


° All parameters may be only var or 
const parameters. 

° If the routine is a function, it may 
only return a scalar result (this 


includes REAL and SHORTREAL). 


° Routines may not be passed. 


° Multi-dimensional arrays are not 
remapped to conform to FORTRAN 
indexing, that is, an element of an 


in Pascal will be ele- 
in FORTRAN. 


array ACn,m] 
ment AC€msn) 


6.3.5 MAIN Procedures 


The MAIN directive is used to identify a 
Pascal procedure that may be invoked as 
if it were a main program. It is some- 
times desirable to invoke a Pascal/VS 
procedure from a non-Pascal routine, for 
example FORTRAN or assembler language. 
In this case it is necessary for certain 
initializing operations to be performed 
prior to actually executing the Pascal 
procedure. The MAIN directive specifies 
that these actions are to be performed. 


There are several restrictions on the 
use of the MAIN directive. 


e oniy procedures may have the MAIN 
directive; 


is declared to be 
its body located in 


° a procedure that 
MAIN must have 
the same module; 
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e the execution of a MAIN procedure 
will not be reentrant; 


° the MAIN directive 
applied to procedures 
most nesting level. 


may only be 
in the ovter- 


Consult Pascal/VS Programmer's Guide, 
order number SH20-6162 for ‘further 


detaiis on using MAIN. 


6.3.6 REENTRANT Procedures 


The REENTRANT directive is used to iden- 


tify a Pascal procedure that may be 
invoked as if it were a main program 
like a MAIN procedure. In addition, 


invocations of these procedures will be 
reentrant. 


In order to achieve this additional fea- 


ture, some help is required from you. 
The first parameter of a procedure 
defined with the REENTRANT directive 
must be an INTEGER passed by var. Prior 
to the very first call from a 
non~Pascal/VS program you must initial- 
ize this variable to zero (0). On 


subsequent calls you must pass the same 
variable back unaltered (Pascal/VS sets 
the variable on the first call and needs 
that value on the subsequent 
invocations). You need not call the 
Same procedure each time, you may call 
different procedures - just continue to 
pass this variable on each call. 


Consult Pascal/VS Programmer's Guide, 
order number $H20-6162 for further 


details on using REENTRANT. 


Note: All Pascal/VS internal procedures 
and functions are reentrant. The REEN- 


TRANT directive is used to specify a 
procedure that is both reentrant and 
invokable from outside the Pascal/VS 


execution environment. 


Cc 


6.3.7 Examples of Routines 


static 
C: CHAR; 


function GETCHAR: CHAR; 
EXTERNAL; 


procedure EXPR(var VAL: INTEGER); 
EXTERNAL; 


procedure FACTOR(var VAL: INTEGER); 
EXTERNAL; 
procedure FACTOR; 
begin 
C := GETCHAR; 
if c = 'c' then 


begin 
C := GETCHAR; 
EXPRCVAL) 

end 


else 
end; _ 


procedure EXPR {var VAL: INTEGER}; 
begin 
FACTORCVAL); 


end; 


Examples of Routine Declarations 


function CHARFOUND 
Cconst S: STRING; 
C: CHAR): BOOLEAN; 
var I: 1..255; 
begin 
for I := 1 to LENGTHCS) do 
if SCI] = c then 
begin 
CHARFOUND := TRUE; 
return 
end; 
CHARFOUND := FALSE; 
end; 


Example of Const Parameter 


6.4 FUNCTION RESULTS 


A value is returned from a function by 
assigning the value to the name of the 
function prior to leaving the function. 
This value is inserted within the 


expression at the point of the call. 
The value must be assignment conformable 
to the type of the function. 


If the function name is used on the 
right side of an assignment, it will be 
interpreted as a recursive call. 


function FACTORIAL 
(CX: INTEGER): INTEGER; 


begin 
if X <= 1 then 
FACTORIAL := 1 
else 
FACTORIAL := X ® FACTORIAL(X-1) 
end; 


Example of Recursive Function 


Standard Pascal permits a function to 
return only a scalar value. Pascal/VS 
provides for a function to return any 
type except a file. This means that you 
can write a Pascal/VS function that 
returns a record structure as its result 
Csuch as you might wish to do for imple- 
menting a complex arithmetic library). 
A function may also return a string, 
however you must specify the maximum 
length of the string to be returned. 


type 
COMPLEX = record 
R,I = REAL 
end 
function CADD 
(const A,B COMPLEX) COMPLEX; 
var 
C : COMPLEX; 
begin 
C.R := A.R + B.R; 
C.I := A.I + B.I; 
CADD := ¢ 
end; 


Example of a Function Returning a 
Record 


6.5 PREDEFINED PROCEDURES AND FUNC~ 
TIONS 


Pascal/VS predefines a number of proce- 
dures and functions that you may find 
valuable. Details of the predefined 
procedures and functions ara given in 
section titled "I/0 Facilities” on page 
105. 
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7.0 VARIABLES 


variable: 


—>lid}——> 


> C > {expr} > J 
Le aa 


> . — >f{id: field} 


> a 


Pascal/VS divides variables into five 

classes depending on how they) are 

declared: 

e automatic (var variables) 

e dynamic Cpointer-qualified vari- 
ables) 

e static (static variables) 

e external (def/ref variables) 

e parameter (declared on ae routine 


declaration) 


A variable may be referenced in several 
ways depending on the variable's type. 
You may always refer to the entire vari- 
able by specifying its name. You may 
refer to a component of a structured 
variable by using the syntax shown in 
the syntax diagram. 


If you simply specify the name of the 
variable, then you are referring to the 
entire variable. If that variable is 
declared as an array, then you are 
referring to the entire array. You may 
assign an entire array. Similarly, you 
may also deal with record and set vari- 
ables as units. 


var 
LINE], 
LINE2 packed 
arrayl 1..80 ] of 
CHAR; 

{ assign all 80 characters } 
{ of the array } 
LINE1L += LINE2; 


Using Variables in their entirety 


subscripted variable 


field reference 


pointer reference 


7.1 


SUBSCRIPTED VARIABLE 


An element of an array is selected by 
placing an indexing expression enclosed 
within square brackets, after the name 
of the array. The indexing expression 
must be of the same type as declared on 
the corresponding array index defi- 
nition. 


A multi-dimensional array may be refer- 
enced as an array of arrays. For exam- 


ple, let variable A be declared as 
follows: 
A: array [a..b,c..d] cf T 


As explained in "The Array Type" on page 
44, this declaration is exactly equiv- 
alent to: 


A: array [a..b] of 
array [c..d] of T 


A reference of the form ALI] would be a 
variable of type: 


array [c..d] of T 


and would represent a single row in 
array A. A reference of the form 
ACII1(J] would be a variable of type T 


and would represent the Jth element of 
the Ith row of array A. This latter 
reference would customarily be abbrevi- 
ated as 


ACI,J] 


Any array reference with two or more 
subscript indices can be abbreviated by 
writing the subscripts in a comma sepa- 
rated list. That is, ALIIJ([J]... could 
be written as ACI,J,...]. 
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If the '%CHECK SUBSCRIPT! option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
its value does not lie outside of the 
subscript range of tha array. An exe- 
cution time error diagnostic will occur 
if the value lies outside of the pre- 
scribed range. (For a description of 
the CHECK feature see "The “CHECK State- 
ment" on page 150.) 


A variable of type STRING may be sub- 
scripted with an integer expression to 
reference individual characters. The 
value of the subscript must not be less 
than 1 or greater than the length of the 
string. String subscripts are checked 
at run time if “CHECK SUBSCRIPT is ena- 
bled. 


A[12] 
ACI] 
AC ItJ ] 

DECKE CARD-FIFTY ] 

MATRIXE€ ROWLII], COLUMNIJ] J 


Subscripted Variables 


7.2 FIELD REFERENCING 


A field of a record is selected by fol- 
lowing the record variable by a pariod 
and by the name of the field to be ref- 
erenced. 
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var 
PERSON: 
record 
FIRST_NAME, 
LAST_NAME: STRING(15); 
end; 
DATE: 
record 
DAY: 1..31; 
MONTH: 1..12;3 
YEAR: 1900..2000 
end; 
DECK: 
array[l1..52] of 
record 
CARD: 1..13;3 
SUIT: 
(SPADE, HEART, 
DIAMOND, CLUB) 
end; 
PERSON.LAST_NAME := *SMITH'; 


DATE.YEAR := 1978; 
DECKE I J].CARD := 2; 
DECKE I J].SUIT := SPADE; 


Field Referencing Examples 


7.3 POINTER REFERENCING 


A dynamic variable is created by the 
predefined procedure NEW or by an imple~ 
mentation provided routine which 
assigns an address to a pointer 
variable. You may refer either to the 
pointer or to the dynamic variable; ref- 
erencing the dynamic variable requires 
using the pointer notation. 


For example 
var P : a R3 


P rafers to the pointer 
Pa refers to the dynamic variable 


If the "XCHECK POINTER' option is ena- 
bled, any attempt to reference a pointer 
that has not been assigned the address 
of an allocated variable will result in 
an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The “CHECK Statement" on page 150.) 


C 


type 
INFO = record 
AGE: 1..99 
WEIGHT: 1.. 
end; 


FAMILY = 
record 
FATHER, 
MOTHER, 
SELF: INFO; 
KIDS: 0..20 
end; 


; 
00; 


var 


FAMILY_POINTER aFAMILY 


NEWCFAMILY_POINTER); 
FAMILY_POINTER®.KIDS := 2; 
NEWCFAMILY_POINTER@. FATHER); 
FAMILY_POINTER®.FATHER®.AGE := 35; 


Pointer Referencing Examples 


7.4 FILE REFERENCING 


A component of a file is selected from 
the file buffer by a pointer notation. 
The file variable is assigned by using 
the predefined procedures GET and PUT. 
Each use of these procedures moves the 


current component to the output file 
(PUT) or assigns a new component from 
the input file (GET). (For a 
description of GET and PUT, see "GET 
Procedure" on page 109 and "PUT Proce- 
dure™ on page 110.) 


If the "%CHECK POINTERS option is ena- 
bled, any attempt to reference a file 
pointer which has no value will result 
in an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The “CHECK Statement" on page 150.) 


var 
INPUT > TEXT; 
OUTPUT : TEXT; 
LINE1L > array [1..80] of CHAR; 


{ scan off blanks 

{ from a file of CHAR 

GETCINPUT); 

While INPUTa = * * do 
GETCINPUT); 


wo 


{ transfer a line to the } 
{ OUTPUT file } 
for I := 1 to 80 do 
begin 
OUTPUT := LINE1CI]; 
PUTCOUTPUT) 
end; 


File Referencing Examples 
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++ 


Syntax: 


constant-expr: 
expr: 


—> {simple-expression} 


VVVVVVY 


simple-expression: 


term: 


>{factor} 


< 
factor: 
>{function-call} 
>{variable} 
>{set-constructor} 


> € —>{expr}——> ) 


> not —>{factor} 


>f{unsigned-constant} 


Pascal/VS expressions are similar in 
function and form to expressions found 
in other high level programming lan- 
guages. Expressions permit you to com- 
bine data according to specific 
computational rules. The type of compu- 
tation to be performed is directed by 
operators which are grouped into four 
classes according to precedence: 


~-->{structured-constant} —--------- 


8.0 EXPRESSIONS 


>{simple-expression}——> 


- the not operator (highest) 

- the multiplying operators 

- the adding operators 

- the relational operators (lowest) 


An expression is evaluated by performing 
the operators of highest precedence 
first, operators of the next precedence 
second and so forth. Operators of equal 
precedence are performed in a left to 
right order. If an operator has an 
operand which is a parenthesized sub-ex- 
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pression, the sub-expression is 
evaluated prior to applying the 
operator. 


The operands of an expression may be 
evaluated in either order; that is, you 
should not expect the left operand of 
dyadic operator to be evaluated before 
the right operand. If either operand 
changes a global variable through a 
function call, and if the other operand 
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uses that value, then the value used is 
not specified to be the updated value. 
The only exception is in boolean expres- 
sions involving the logical operations 
of tandt (&) and ‘or' (|); for these 
operations the right operand will not be 
evaluated if the result can be deter- 
mined from the left operand. See 
"Boolean Expressions" on page 79. 


Cc 


Examples of Expressions 


Assume the following declarations: 


const 
ACME 


type 
COLOR 
SHADE 
DAYS 
MONTHS 


factors: 


I 

15 
CITX8+J5) 
[ RED ] 


| 
ODD(IXJ) 
not BOOL 
COLOR( 1 ) 
ACME 


expression: 


I+ J 
RED = A_COLOR 
RED in A_SET 


‘acme’; 


CRED, YELLOW, 
set of COLOR; 


BOOLEAN; 
MONTHS 


INTEGER; 


BLUE); 


CSUN, MON, TUES, 
(JAN, FEB, MAR, 
JUL, AUG, SEP, 


WED, THUR, FRI, SAT); 


APR, MAY, JUN, 
OCT, NOV, DEC); 


variable 

unsigned constant 
parenthetical expression 
set of one element 

empty set 

function call 

complement expression 
scalar type converter 
constant reference 


factor 

multiplication 

integer division 
catenation 

set intersection 
logical and on integers 
boolean and 


term 

addition 

logical or on integers 
set union 

unary minus on an integer 


simple expression 
relational operations 
test for set inclusion 


Expressions 


75 


++ +++ 


8.1 OPERATORS 


operator 


+ 


| Cor) 

| cor) 

+ 

&& (xor) 
&& (xor) 


Multiplying Operators 


multiplication 


real division 


integer division 
modulo 

boolean and 
logical and 

set intersection 


string catenation 


logical left shift 


INTEGER 

REAL 

REAL, INTEGER 
SHORTREAL 
SHORTREAL, INTEGER 
SHORTREAL, REAL 


INTEGER 
REAL 

REAL, INTEGER 
SHORTREAL 
SHORTREAL, 
SHORTREAL, 


INTEGER 
REAL 


INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 

INTEGER 


logical right shift] INTEGER 


Adding Operators 


addition 


subtraction 


set difference 
boolean or 
logical or 

set union 
exclusive or 


"aexclusive’ union 
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INTEGER, INTEGER 
REAL, REAL 

REAL, INTEGER 
SHORTREAL, SHORTREAL 
SHORTREAL, INTEGER 
SHORTREAL, REAL 
INTEGER, INTEGER 
REAL, REAL 

REAL, INTEGER 
SHORTREAL, SHORTREAL 
SHORTREAL, INTEGER 
SHORTREAL, REAL 

set of t 

BOOLEAN 

INTEGER 

set of ¢ 

INTEGER 

set of ¢ 


INTEGER 
REAL 

REAL 
SHORTREAL 
SHORTREAL 
REAL 


REAL 

REAL 

REAL 
SHORTREAL 
SHORTREAL 
REAL 
INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 
INTEGER 


INTEGER 


INTEGER 
REAL 

REAL 
SHORTREAL 
SHORTREAL 
REAL 


INTEGER 
REAL 

REAL 
SHORTREAL 
SHORTREAL 
REAL 

set of t 
BOOLEAN 
INTEGER 
set of t 
INTEGER 


set of t 


The Not Operator 


boolean not 


logical one's 
complement 


set complement 


BOOLEAN 
INTEGER 


set of ¢ 


Relational Operators 


compare equal 


compare not equal 


compare less than 
compare 

subset 

compare 

compare > or = 
superset 


set membership 


any set, scalar type, 
pointer or string 


any set, scalar type, 
pointer or string 


scalar type or string 
scalar type, string 
set of ¢ 

scalar type, string 
scalar type, string 
set of ¢ 


t and set of 


BOOLEAN 
INTEGER 


set of ¢ 


BOOLEAN 


BOOLEAN 


BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
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8.2 CONSTANT EXPRESSIONS 


Constant expressions are expressions 
which can be evaluated by the compiler 
and replaced with a result at compile 
time. By its nature, a constant expres- 
sion may not contain a reference to a 
variable or to a user-defined function. 
Constant expressions may appear in con- 
stant declarations. 


The following predefined functions are 
permitted in constant expressions: 


Function Page 
ABS 134 
CHR 128 
HIGHEST 125 
LENGTH 139 
LOWEST 125 
MAX 132 
MAXLENGTH 139 
MIN 132 
ODD 134 
ORD 128 
PRED 133 
scalar conversion 

functions 129 
SIZEOF 127 
succ 133 
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constant 


expression type 
ORDC'A') INTEGER 
SUCCC(CCHRC'FO'X)) CHAR 
256 div 2 INTEGER 


"TOKEN'| |STRCCHR(O)) STRING 
"8000'X | '0001'X INTEGER 
Cor. .'9t] set of CHAR 
32768%2-1 INTEGER 


Examples of Constant Expressions 


8. BOOLEAN EXPRESSIONS 


You should recognize that Pascal assigns 
the operations of "&" (Cand) and "|" a 
higher precedence than the relational 
operators. This means that the expres- 
sion: 


A<B & C<D 
will be evaluated as 


CA < (B&C)) < D 


Thus, it is advisable to use parenthesis 
when writing expressions of this sort. 


Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving '‘&' 
Cand) and '/' (€or) such that the right 
operand of the expression will not be 
evaluated if the result of the operation 
can be determined by evaluating the left 
operand. For example, given that A, B, 
and C are boolean expressions and X i5 a 
boolean variable, the evaluation of 


X:= Aor Borec 
would be performed as 


if A then 
X ?= TRUE 
else 
if B then 
X ?= TRUE 
else 
X := C¢ 


The evaluation of 
X := A and B and C 
would be performed as 
if -A then 
X == FALSE 
else 
if -B then 
X == FALSE 


X t= C 


The evaluation of the expression will 
always be left to right. 


The following example demonstrates log- 
ic which depends on the conditional 
evaluation of the right operand of the 
"and" operator. 


type 
RECPTR = @REC; 
REC = record 
NAME: ALPHA; 
NEXT: RECPTR; 
end; 


var 
P : RECPTR; 
LNAME ALPHA; 


begin 


while (P<>nil) and 
CPa.NAME <> LNAME) 
do 


P += Pa.NEXT; 
end; 


Example of a BOOLEAN Expression 
that Depends on Order of Evaluation 


Notes: 


° If you use a function in the right 
operand of a boolean expression, 
then you must be aware that the 
function may not be evaluated. Fur- 
ther, you should note that relying 
on side-effects from functions is 
considered a bad programming prac- 
tice. 


° Not all Pascal compilers support 
this interpretation of BOOLEAN 
expressions. If you wish to assure 
portability between Pascal/VS and 
other Pascal implementations you 
should write the compound tests ina 
form that uses nested 
if-statements. 
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LOGICAL EXPRESSIONS 


8.4% 


Many of the integer operators provided 
in Pascal/7VS perform logical operations 
on their operands; that is, the operands 
are treated as unsigned strings of bina- 
ry digits instead of signed arithmetic 
quantities. For example, if the integer 
value of -1 was used as an operand of a 
logical operation, it would be viewed as 
a string of binary digits with a hexade- 
cimal value of 'FFFFFFFF'X. 


The logical operations are defined to 
apply to 32 bit values. Such an opera- 
tion on a subrange of an INTEGER could 
yvield a result outside the subrange. 


The following operators perform logical 
operations on integer operands: 


° '&' Cand) performs a bit-wise and of 
two integers. 

° "|" (Cor) performs a bit-wise inclu- 
sive or. 

e "Za! (xor) performs aie bit-wise 


exclusive or. 


80 Pascal/VS Reference Manual 


Pa a ee ee ee oe eS 


"=" (not) performs a one's comple- 


ment of an integer. 


'<<' shifts the left operand value 
left by the amount indicated in the 
right operand. Zeroes are shifted in 
from the right. 


'>>' shifts the left operand value 
right by the amount indicated in the 
right operand. Zeroes are shifted in 
from the left. 


257 & 'FF'X yields 1 

2|14 1 8 vields 14 

4 << 2 yields 16 

-4& << 1 yields -8 

8 >> 1 yields 4 

-8 >> 1 yields "7 FFFFFFC'X 
"FFFF'YX >> 3 yields "LFFFIX 

7-1 & "FFX yields 'FE'X 

~0 yields -1 

"FF'X && 8 vields 'F7'X 


Examples of Logical Operations 


c 


++eeee t+ 


8.5 FUNCTION CALL 


function-call: 


— > {id: function}——> {actual-parameters} 


actual-parameters: 


>{expr} >) 
ea | 


A function returns a value to the invok- 
er. A call to a function passes the 
actual parameters to the corresponding 
formal parameters. Each actual parame- 
ter must be of a type that is conforma- 
ble to the corresponding formal 
parameter. You may not pass a field of 
a packed record as a var parameter. You 
also may not pass an element of a packed 
array as a var parameter. 


The parenthesis list may be dropped if 
the function requires no parameters. 
However, if you wish to draw attention 
to a function call that has no parame- 
ters and make it appear different froma 
variable reference, you can follow the 
function name with an empty set of 
parenthesis. 


var A,B,C: INTEGER; 
function SUM 
(A,B: INTEGER): INTEGER; 
begin 
SUM := A+B 
end; 
begin 
C i= SUMCA,B) * 2 
end; ; 


Function Example 
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8.6 SCALAR CONVERSIONS 


Pascal/VS predefines the function ORD 
that converts any scalar value into an 
integer. The scalar conversion func 
tions convert an integer into a speci- 
fied scalar type. An integer expression 
is converted to another scalar type by 
enclosing the expression within paren- 
theses and prefixing it with the type 
identifier of the scalar type. If the 
operand is not in the range O... 
ORDCHIGHEST(Cscalar typed}, then a sub- 
range error will result. The conversion 
is performed in such a way as to be the 
inverse of the ORD function. See "Sca- 
lar Conversion" on page 129. 


The definition of any type identifier 


that specifies a scalar type Cenumerated 
scalars or svubranges) forms a scalar 
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conver 
expres 
CHR(x) 


sion function. By definition, the 
sion CHAR(x) is equivalent to 
> INTEGER(Cx) is equivalent to x3 


and ORD(type(x)) is equivalent to x. 


type 
WE 


var 


EK = 
(SUN, MON, TUE,WED, THU,FRI,SAT)3 


DAY: WEEK; 


{The f 
DAY 


ollowing assigns SAT to DAY} 
2= WEEKC6);3 


Scalar Conversion Functions 


c 


8.7 SET CONSTRUCTOR 


set-contructor: 


— [ >{expr} > ] ——— 
> .. —>{expr}—> 
a ,< 
> 


A set constructor is used to compute a 
value of a set type within an 
expression. 


The set constructor is list of comma 
separated expressions or expression 
pairs within square brackets. An 
expression pair designates that all val- 
ues from the first expression through 
the last expression are to be included 
in the resulting set; the evaluation of 
the first expression must produce a val- 
ue less than or equal to the valua 
computed by the second expression. Each 
expression must be of the same type; 
this type becomes the base scalar type 
of the set. If the set specifies INTE- 
GER valued expressions, then there is an 
implementation restriction of 256 ele- 
ments permitted in the set. 


type 
DAYS = set of 
CSUN,MON, TUES,WED, THU, FRI,SAT); 
CHARSET= set of CHAR; 


var 
WORKDAYS, 


WEEKEND: DAYS 
NONLETTERS: CHARSET; 


WORKDAYS := [MON..FRII; 
WEEKEND := -~ WORKDAYS; 


NONLETTERS := 
- Etat. tat, tat, 12"); 


Set Constructor 
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Syntax: 


statement: 


>{label}——> : ——> 
fe 


>f{assignment-statement} 
>{case-statement} 


>{compound-statement} 


>fempty-statement} 
>{for-statement} 
>{goto-statement} 


>{if-statement} 


>{procedure-call} 


>{repeat-statement} 


>{while-statement} 


>{with-statement} 


Statements are your directions to per- 
form specific operations based on the 
data. The statements are similar to 


--->fassert-statement}------------ 


--->{continue-statement}---------- 


--->{leave-statement}------------- 


9.0 STATEMENTS 


those found in most high level program- 
ming languages. 
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9.1 THE ASSERT STATEMENT 


assert-statement: 


---> assert --->{expr} 


The assert~-statament is used to check 
for a specific condition and signal a 
runtime error if the condition is not 
met. The condition is specified by the 
expression which must evaluate to a BOO- 
LEAN value. If the condition is not 
TRUE then the error is raised. The com- 
piler may remove the statement from the 
program if it can be determined that the 
assertion is always true. 
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Example: 
assert A >= B 
The Assert Statement 


Cc 


9.2 THE ASSIGNMENT STATEMENT 


assigqnment-statement: 


Te en able 2= ——> {expr} 
>{id: function}—> 


The assignment-statement is used to 
assign a value to a variable. This 
statement is composed of a reference to 
a variable followed by the assignment 
symbol (':="'), followed by an expression 
which when evaluated is the new value. 
The variable must be conformable to the 
expression. The rules for expression 
conformability are given in "Type Com- 
patibility" on page 33 


You may make array assignments (assign 
one array to another array) or record 
assignments Cassign one record to anoth- 
er). When doing this, the entire array 
or record is assigned. 


A result is returned from a function by 
assigning the result to the function 
name prior to leaving the function. See 
"Function Results" on page 67 


Pascal/VS will not permit the assignment 
of a value to a pass by const parameter. 


Example: 
type 
CARD = record 
SUIT : CSPADE, 
HEART, 
DIAMOND, 
CLUB); 
RANK : 1..13 
end; 
var 
X, Y, 2 ? REAL; 
LETTERS, 
DIGITS, 


LETTER_OR_DIGIT 
set Of CHAR; 


I, J, K INTEGER; 
DECK : arrayl 1..52 ] of 

CARD; 
X 22 HZ; 
LETTERS 2ST AY we 829 Ag 
DIGITS =C€ "o' .. '9' J; 
LETTER_OR_DIGIT = LETTERS + DIGITS; 
DECKEC I 1.SUIT >= HEART; 
DECK[E J ] = DECKE K ]; 


Assignment Statements 
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++ + 


tee eet 


9.3 THE CASE STATEMENT 


case-statement: 


—> case ——>{expr}——> of ) 
< 


¢~—— 


<--a5-0- ; 


The case-statement provides you with a 
multiple branch based upon the evalu- 
ation of an expression. This statement 
consists of an expression called the 
selector anda list of statements. The 
selector must be of scalar type (except 
type REAL). Each statement is prefixed 
with one or more ranges of the same type 
as the selector; each range is separated 
by a comma. Each range designates one 
or more values called case labels. 


Pascal/VS evaluates the expression and 
executes the statement whose case label 
equals the value of the expression. If 
no case label equals the value of the 
expression, then the otherwise state- 
ment is executed if it is present; if 
there is no otherwise statement and the 
“CHECK CASE option is on, then a runtime 
error will result. If the checking is 
not enabled the results will not be pre- 
dictable. 


The range values of a case-statement may 
be written in any order. However, you 
may not designate the same case label on 
more than one statement. 
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---> otherwise ---,---> (statement) 


Example: 


type 
SHAPE = (TRIANGLE, 

SQUARE, 

COORDINATES = 
record 


X,Y 


RECTANGLE, 
CIRCLE); 


REAL; 
AREA REAL; 
case S$ SHAPE of 
TRIANGLE: 
CSIDE 
BASE 
RECTANGLE: 
CSIDEA,SIDEB 
SQUARE: 
CEDGE 
CIRCLE: 
CRADIUS 


REAL; 
REAL); 


REAL); 
REAL); 


REAL) 
end; 
var 
COORD COORDINATES; 
With COORD do 
case S of 
TRIANGLE: 
AREA := 
RECTANGLE: 
AREA := SIDEA X® SIDEB; 
SQUARE: 
AREA :5 
CIRCLE: 
AREA 
end; 


0.5 * SIDE * BASE; 


SQ@RCEDGE); 
3.14159 * SQ@RCRADIUS) 


The Case Statement 


Example: 


type 
RANK = CACE, TWO, THREE,FOUR, 
FIVE, SIX, SEVEN,EIGHT, 
NINE, TEN, JACK, QUEEN, 


» 
SUIT = CSPADE,HEART,DIAMOND, CLUB); 
CARD = record 
R > RANK; 
$ > SUIT 
end; 


var 
POINTS : INTEGER; 
A_CARD =: CARD; 


case A_CARD.R of 


ACE 
POINTS <= 11; 
TWO..TEN 
POINTS := ORDCA_CARD.R)+1 
otherwise 
POINTS := 10 
end; 


The Case Statement with otherwise 


Statements 89 


9.4 THE COMPOUND STATENENT 


Syntax: 


compound-statement: 


The compound-statement serves to brack- 
et a series of statements that are to be 
executed sequentially. The reserved 
words "begin" and "end" delimit the 
statement. Semicolons are used to sepa- 
rate each statement in the list of 
statements. 
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—> begin > {statement}——-—> end 
[,__ 7 5 < 


Example: 


if A > B then 


hegin ¢ 
TEMP 
A 
B 

end 


swap A and B } 
B; 
TEMP 


Compound Statement 


FHP E HEHEHE EE HEHEHE Het eee eee teeeeteetse 


9.5 THE CONTINUE STATEMENT 


continue-statement: 


-~-> continue 


The continue statement causes a jump to 
the loop-continuation portion of the 
inner-most enclosing ‘for, while, or 
repeat statement. In other words, it is 
a goto to the end of the loop. 


The following examples illustrate how 
the continue statement functions in each 
of the loop constructs. 
While expr do begin 
continue 
(Xcontinue jumps to here) 
end 


tet ee eeteteeeeeetese 


for i := expril to expr2 do 
begin 


continue 


(¥continue jumps to here) 
end 


repeat 
continue 


(Xcontinue jumps to herex) 
until expr; 
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-6 THE EMPTY STATEMENT 


empty-statement: 


The empty-statement is used as a place 
holder and has no effect on the exe- 
cution of the program. This statement 
is often useful when you wish to place a 
label in the program but do not want it 
attached to another statement (such as, 
at the end of a compound-statement). 
The empty-statement is also useful to 
avoid the ambiguity that arises in nest- 
ed if-statements. You may force an 
else-clause to be paired with an outer 
nested if-statement (see page 96) by 
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using an empty-statement after an else 
in the inner nested if-statement (see 
below). 


if bl then 
if b2 then 
sl 
else 
{ empty-statement } 
else 
s2 


c 


9.7 THE FOR STATEMENT 


for-statement: 


—> for —>{id}——> := ——>{expr} > to Se et ek ee 
<i downto —> | 
ae 
> do —> {statement} 


The for-statement repeatedly executes a 
statement while a control variable is 
assigned a series of values. The value 
of the control variable is incremented 
(to) or decremented (downto) for each 
iteration of the loop. The increment 
(decrement) is computed by the SUCC 
(PRED) function. That is, the control 
variable is changed to the succeeding 
(preceding) value of the type of the 
control variable. 


The for-statement initializes the con- 
trol variable to the first expression. 
Prior to each execution of the component 
statement, the control variable is com- 
pared less than or equal to (tO), or 
greater than or equal to (dOWNtO) the 
second expression. Pascal/VS computes 
the value of the second expression at 
the beginning of the for-statement and 
uses the result for the duration of the 
statement. Thus the ending value 
expression is computed once and can not 
be changed during the for-statement. 


The control variable must be an automat- 
ic variable which is declared in the 
immediately enclosing routine. Also, it 
may not be subscripted, field qualified 
or referenced through a pointer. The 
type of the control variable must be a 
scalar type. 


The executed statement must not alter 
the control variable. If the control 
variable is altered within the loop, the 
resultant loop execution is not predict- 
able. The value of the control variable 
after the for-statement is executed is 
undefined (you should not expect the 
control variable to contain any partic— 
ular value). 


Given the following statement 
for I := exprl to expr2 do stmt 
where I is an automatic scalar variable; 


exprl and expr2 are scalar expressions 
which are type-compatible with I; and 


"stmt' is any arbitrary statement. The 
following compound statement is func- 
tionally equivalent: 


begin 
TEMP1 := oe 
TEMP2 := r2; 
if TEMP 1 <a PT EMP2 then 
begin 
I := TEMP1; 
repeat 


stmt; 
if I = TEMP2 then 
leave; 
I == SuUCC(I) 
until FALSE; {forever} 
end 
end 


where 'TEMP1' and 'TEMP2' are compiler 
generated temporary variables. 


And given the following statement 
for I := axprl downto expr2 do stmt 


where I is an automatic scalar variable; 
exprl and expr2 are scalar expressions 
which are type-compatible with I; and 
"stmt' is any arbitrary statement. The 
following compound statement is func- 
tionally equivalent: 


begin 
TEMP1 := expr1l; 
>= expr2; 
if TEMP1 >= TEMP2 then 


until FALSE; {forever} 
end 
end 


where 'TEMP1' and 'TEMP2' are compiler 
generated temporary variables. 
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Examples: 


{ find the maximum INTEGER in 
{ an array of INTEGERS 
I 1]; 


be adie oll 


LARGEST := 1; 
for I := 2 to SIZE_OF_A do 
if ACI] < MAX then 
begin 
LARGEST := I; 
MAX := ALT] 
end 


{ matrix multiplication: C<-Ax*B } 


for I := 1 to N do 


begin 
X := 0.0; 
for K := 1 to N do 
X == ALTI,K] * BIK,J] + X; 
CLI,J] := x 
end 


{ sum the hours worked this week } 
SUM := 0; 
for DAY := MON to FRI do 

SUM := SUM + TIMECARDE DAY J 


The For Statement 
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9.8 THE GOTO STATEMENT 


goto-statement: 


> goto ——>{label} 


The goto-statement changes the flow of 
control within the program. 


Examples: 


goto 10 
goto ERROR_EXIT 


The Goto Statement 


The label must be declared within the 
routine that contains the 
goto-statement. 


The following restrictions apply to the 
use of the goto statement: 


° You may not branch into a compound 
statement from a §goto-statement 
which is not contained within the 
statement. 


° You may not branch into the then- 
clause or the else-clause from a 
goto-statement that is outside the 
if-statement. Further, you may not 
branch between the then-clause and 
the else-clause. 


e You may not branch into a case-al- 
ternative from outside the 
case-statement or between case-al- 
ternative statements in the same 
case-statement. 


° You may not branch into ae for, 
repeat, or while loop from a goto 
statement that is not contained 
within the loop. 


° You may not branch into a 
With-statement from a 
goto-statement outside of the 
with-statement. 


e For a goto-statement that specifies 
a label that is defined in an outer 
routine, the target label may not be 
defined within a compound statement 
or loop. 


The following example illustrates legal 
and illegal goto-statements. 


ee 


procedure GOTO_EXAMPLE; 
label 
Ll, L2, L3, L4 


procedure INNER; 


begin 
goto L4; { permitted } 
goto L3; { not permitted } 
end; 
begin 
goto L3; { not permitted } 
egin 
L3: 
goto L4; { permitted } 
goto L3; { permitted } 


end; 
L4:if expr then 
L1: goto L2 { not permitted } 
else 
L2: goto Li { not permitted } 
end; 


Goto Target Restrictions 


Statements 95 


if-statement: 


—> if —>{expr}—> then Eater TO 
> else —>{statement}—> 


The if-statement allows you to specify 
that one of two statements is to be exe- 
cuted depending on the evaluation of a 
boolean expression. The if-statement is 
composed of an expression and a then- 
clause and an optional 
Each clause contains one statement. 


The expression must evaluate to a BOOLE- 
AN value. If the result of the expres- 
sion is TRUE, then the statement in the 
then-clause is executed. If the expres-— 
sion evaluates to FALSE and there is an 
else-clause, then the statement in the 
else-clause is executed; if there is no 
else-clause, control passes to the next 
statement. 


Example: 


if A <= B then 
A t= (CAt+1.0)72.0 


if ODDCI) then 
J:=J+1 

else . 
J:=J div 2+ 1 


The If Statement 


Nesting of an if-statement within an 
if-statement could be interpreted with 
two different meanings if only one 
statement had an else-clause. The fol- 
lowing example illustrates the condi- 
tion that produces the ambiguity. 
Pascal/VS always assumes the first 
interpretation. That is, the 
else-clauses are paired with the inner- 
most if-statement. 
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else-clause. 


The following line could be 
interpreted two ways. 


if bi then if b2 then stmtl else stmt2 


Interpretation 1 
Cassumed by Pascal/VS) 


if bi then 
begin 
if b2 then 
stmtl 
else 
stmt2 
end 


Interpretation 2 
Cincorrect interpretation) 


if bl then 
begin 
if b2 then 
stmtl 
end 
else 
stmt2 


If the second interpretation is desired 
you could code it as shown or you could 
take advantage of the empty-statement. 


if bl then 
if b2 then 
stmtl 
else 
{ empty statement } 
else 
stmt2 


HEE EEE EE HEE EE HERE EEE HHH HHH HHH HHH 


9.10 THE LEAVE STATEMENT 


leave-statement: 


---> leave 


The leave statement causes an immediate, 
unconditional exit from the inner-most 
enclosing for, while or repeat loop. 
For example, the following two code seg- 
ments are functionally equivalent: 


While expr do 
begin 
leave 
end; 
While expr do 
begin 
goto lab; 
end; 
lab: ; 


Hehe eteeeeeeeeeeese 


Example: 


P:=FIRST; 
While P<>nil do 
if Pa.NAME = 'JOE SMITH' then 
leave 
else 
P:=Pa.NEXT; 
{ P either points to the desired } 
{ data or is nil } 


The Leave Statement 
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9.11 THE PROCEDURE CALL 


procedure-call: 


ee ldiprocedue ———— 
> ¢ >{expr} >) —> 


Le 


The procedure-statement causes the 
invocation of a procedure. When a pro- 
cedure is invoked, the actual parameters 
are substituted for the corresponding 
formal parameters. The actual parame- 
ters must be conformable to the formal 
parameters. The rules for expression 
conformability are given in "Type Com- 
patibility” on page 33. 


Parameters which are passed by 
read/write reference (var) may only be 
Variables, never expressions or con- 
stants. Also, fields of a packed record 
may not be passed by var. Parameters 
passed by value or read-only reference 
(const) may be any expression. 


A procedure invocation that requires no 


parameters does not use the list of 
operands. 
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Example: 


TRANSPOSECAN_ARRAY, 
NUM-OF_ROWS, 
NUM-OF_COLUMNS); 


MATRIX_ADD(CA_ARRAY, 
B_ARRAY, 
C_ARRAY, 
N,M); 


XYZCI+tJ, KL) 


Procedure Invocations 


9.12 THE REPEAT STATEMENT 


Syntax: 


repeat-statement: 


The statements contained between the 
statement delimiters repeat and until 
are executed until the control expres- 
sion evaluates to TRUE. The control 
expression must evaluate to type 
BOOLEAN. Because the termination test 
is at the end of the loop, the body of 
the loop is always executed at least 
once. The structure of the 
repeat-statement allows it to act like a 
compound statement in that it encloses a 
list of statements. 


Example: 
repeat 
K 
I 
J 
until s 


——> repeat — Tt? tstatement}——_7—> until ——> {expr} 
<———_ ; < 


I mod J; 
ai 


= 9 
The Repeat Statement 
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9.13 THE RETURN STATEMENT 


Syntax: 


return-statement: 


---> return 


The return-statement permits an exit 
from a procedure or function. This 
statement is effectively a goto to an 


imaginary label after the last statement 
within the routine being executed. If 
the %CHECK FUNCTION option is enabled, 
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+eeese 


Pascal/VS will insure that a function 
has been assigned a value prior to the 
return from tha function. If a value 
has not been assigned, a runtime error 
will occur. 


9.14 THE WHILE STATEMENT 


C 


while-statement: 


> while ——>{expr}——> do ——>{statement} 


The while-statement allows you to speci- 
fy a statement that is to be executed 


while a control expression evaluates to Example: 
TRUE. The control expression must eval- 
uate to type BOOLEAN. The expression is { Compute the decimal size of N } 
evaluated prior to each execution of the { assume N >= 1 } 
statement. I := 0; 
J := 1; 
while N > 10 do 
begin 
Io:= I + 1; 
Jo:c= J * 10; 
N := N div 10 
end 
{ I is the power of ten of the } 
{ original N } 
{ J is ten to the I power } 
{1 <= N <= 9 } 


The While Statement 
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9.15 THE WITH STATEMENT 


with-statement: 


—> with >{variable} > do ——> {statement} 
ee 


The with-statement is used to simplify 
references to a record variable by elim- 
inating an addressing description on 
every reference to a field. The 
with-statement makes the fields of a 
record available as if the fields were 
variables within the nested statement. 


The with-statement affectively computes 
the address of a record variable upon 
executing the statement. Any modifica- 
tion to a variable which changes the 
address computation will not be 
reflected in the pre-computed address 
during the execution of the with state- 


ment. The following example illustrates 
this point. 
var A arrayl 1..10 1] of 
record 
FIELD INTEGER 
end; 
coe 
With AC I ] do 
begin 
K := FIELD; {K:=AL1].FIELD} 
I := 2; 
K := FIELD; {K:=AL1]. FIELD} 
end; 


The Address of A is Computed 
on Entry to the Statement 


The comma notation of a with-statement 
is an abbreviation of nested 
with-statements. The names within a 
with-statement are scoped such that the 
last with statement will take 
precedence. A local variable with the 
same name as a field of a record becomes 
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unavailable in 


a with 


statement that 


specifies the record. 


Example: 
type 
EMPLOYEE = 
record 
NAME STRING(20); 
MAN_NO 0..999999; 
SALARY INTEGER; 
ID_NO 0..999999 
end; 
var 
FATHER a EMPLOYEE; 
With FATHER] do 
begin 
NAME = 'SMITH'; 
MAN_NO := 666666; 
SALARY == WEEKLY_SALARY; 
ID_NO = MAN_NO 
end 


is equivalent to: 


begin 
FATHERA.NAME 
FATHER@.MAN_NO 
FATHERA. SALARY 
FATHER. ID_NO 
end 


Note: 


:= 'SMITH'S 


666666; 
WEEKLY_SALARY; 


:= FATHERA.MAN_NO 


The variable FATHER 
pointer to EMPLOYEE, 


is of type 
thus the pointer 


notation must be used to specify the 
record pojnted to by the pointer. 


The With Statement 


Example: 


V : record 
V2 INTEGER; 
V1 record A REAL end; 
A INTEGER 
end; 
A : CHAR; 
with V,V1 do 
begin 
V2 = 1; {v.v2 := 1 } 
A = 1.0; {€{ V.V1.A := 1.0 } 
V.A C= 1 {V.A c= } 
{ CHAR A is not } 
{ available here} 
end; 
A i= 'A'; { 


CHAR A is now } 
available } 


With Statements Can Hide a Variable 


Statements 
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Input and output are done using the file 
data structure. The Pascal/VS Program- 
mer's Guide provides more detail on how 
to use the I/0 facilities in a specific 
operating system. Pascal/VS provides 
predefined routines which operate on 
variables of a file type. The routines 


are: 

° RESET 

o REWRITE 
° READ 

° WRITE 

® GET 

e PUT 

° EOF 

° CLOSE 

e UPDATE 
e TERMIN 
e TERMOUT 
° PDSIN 

e PDSOUT 
e SEEK 


To facilitate input and output oper- 
ations that require conversion to and 
from a character representation, the 
predefined file type TEXT is provided. 
The type TEXT is predefined as a file of 
CHAR. Each GET and PUT transfers one 
CHAR of information. There are addi- 
tional predefined routines that may be 
executed on variables of type TEXT that 
perform the required conversions. 


° READLN 


e WRITELN 
. EOLN 
° PAGE 
° cOLS 


10.0 %I/0 FACILITIES 


10.1 RESET PROCEDURE 


Open a File for Input 


Definition: 


procedure RESET( 
F : filetype; 
const S$ STRING); 


Where: 


F is a variable of a file type 
S is an optional string value that 
specifies options 


RESET positions the file pointer to the 
beginning of the file and prepares the 
file to be used for input. After you 
invoke RESET the file pointer is point- 
ing to the first data element of the 
file. If the file is associated with a 
terminal, the terminal user would be 
prompted for data when the RESET is exe- 
cuted. This procedure can be thought of 
as: 


1. Closing the file Cif open). 
2 Rewinding the file. 

3. Opening the file for input. 
4 


Getting the first component of the 
file. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 


number SH20-6162 which describes the 
options that are available. 
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10.2 REWRITE PROCEDURE 


Open a File for Output 


Definition: 


procedure REWRITEC 
F : filetype; 


const S$ STRING); 


Where: 


F i's a variable of a file type 
S is an optional string value that 
specifies options 


REWRITE positions the file pointer to 
the beginning of the file and prepares 
the file to be used for output. This 
procedure can be thought of as: 


1. Closing the file Cif open). 

2. Rewinding the file. 

3. Opening the file for output. 

The string parameter is used to specify 
any special file dependent options to be 


used in opening the file. Consult the 


Pascal/VS Programmer's Guide, order 
number $H20-6162 which describes the 


options that are available. 
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10.3 TERMIN PROCEDURE 


Open a File for Input from the Terminal 


Definition: 


procedure TERMINC 
F : TEXT; 


const § STRING); 


Where: 


F is a variable of type TEXT 
§ is an optional string value that 
specifies options 


TERMIN opens the 
input from the 
string parameter 


designated file for 
users terminal. The 
is used to specify any 


special file dapendent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 


number SH20-6162, which describes the 
options that are available and operating 
system dependencies on this procedure. 


SEEEHE HEHEHE EE HEHE HEH FH et 


+e eter eee 


10,4 TERMOUT PROCEDURE 


Open a File for Output from the Termi- 
nal 


Definition: 


procedure TERMOUT( 
Fo: TE 


const $S STRING) ; 


Where: 


F is a variable of type TEXT 
S§ is an optional string value that 
specifies options 


TERMOUT opens the designated file for 
output to the users’ terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number $H20-6162, which describes the 
options that are available and operating 
system dependencies on this procedure. 


++tet+ 
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10.5 PDSIN PROCEDURE 


Open a File for Input from a PDS 


Definition: 


procedure PDSIN(¢ 
F : filetype; 
STRING); 


const 5S 


Where: 


F is a variable of a file type 
S is a string value that specifies 
options 


PDSIN opens a member in a library (par- 
titioned) file for input. 


The string parameter is used to specify 
any special file dependent options to be 


used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 


options that are available. 
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10.6 PDSOUT PROCEDURE 


Open a File for Qutput to a PDS 


Definition: 


procedure PDSOUT¢ 
F : filetype; 


const Ss STRING); 


Where: 


F 1s a variable of a file type, 
§ is a string value that specifies 
options. 


PDSOUT opens a member ina library (par- 
titioned) file for output. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 
options that are available. 
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10.7 UPDATE PROCEDURE 


Open a File for Input and Output 


Definition: 


procedure UPDATEC 
F : filetype; 


const § STRING); 


Where: 


F is a variable of a file type, 
§ is a string value that specifies 
options. 


UPDATE opens a file for both input and 
output Cupdating). A PUT operation 
replaces a file component obtained from 
a preceding GET operation. The exe- 
cution of UPDATE causes an implicit GET 
of the first file component (Cas in 
RESET). The following program fragment 
jllustrates the use of UPDATE. 


var 
FILEVAR file of record 
CNT : INTEGER; 
end; ; 
UPDATECFILEVAR); {open and get } 


While not EOFCFILEVAR) do 
begin 
FILEVARA.CNT := FILEVARA.CNT+13 
PUTCFILEVAR); {update last elem} 
as {get next elem } 
ena; 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 
options that are available. 


+ 
+ 
+ 
+ 
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10.8 CLOSE PROCEDURE 


Close a File 


Definition: 


procedure alas 


filetype); 


Where: 


F is a variable of a file type 


CLOSE closes a file; all processing to 
the file is completed. You must open 
the file prior to using it again. 


10.9 GET PROCEDURE 


Position a File to Next Element 


Definition: 


procedure GETC F filetype ); 


Where: 


F is a variable of a file type. 


GET positions the file pointer of a file 


Cpreviously opened for input) to the 
next component in the file. For 
example, if the file is defined as an 


array of 80 characters, then each GET 
returns the next 80 character record. A 
GET invocation on a file of type TEXT 
returns a single character. 
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10,10 PUT PROCEDURE 


Position a File to Next Element 


Definition: 
procedure PUTC F 


filetype ); 


Where: 


F is a variable of a file type. 


PUT releases the current component of 
the file variable by effectively writing 
the component to the associated physical 
file. A call to PUT witha file of type 
TEXT transfers a single character. The 
file must have been previously opened 
for output. 
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10.11 SEEK PROCEDURE 


Position a File to a Specified Element 


Definition: 


procedure SEEKC 
F : filetype; 
N : INTEGER); 


Where: 


F is a variable of a file type, 
N is a component number of 
the file. 


SEEK specifies the number of the next 
file component to be operated on by a 
GET or PUT operation. File components 
have an origin of 1. The SEEK procedure 
is not supported for TEXT files. The 
file specified in the SEEK procedure 
must have been opened by RESET, REWRITE 
or UPDATE. For more infomation, consult 
the Pascal/VS Programmer's Guide, order 
number SH20~-6162. 


J 


c 


10.12 EQF FUNCTION 


Test File for End Of File 


Definition: 
function EOFCF: filetype): BOOLEAN; 
function EOF: BOOLEAN; 


Where: 


F is a variable of a file type. 


EOF is a BOOLEAN valued function which 
returns TRUE if the end-of-file condi- 
tion is true for the file. This condi- 
tion occurs in an input file when an 
attempt is made to read past the last 
record element of the file. If the file 
is open for output, this function always 
returns TRUE. 


If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 


Example: 
{ The following will read all of } 
{ the records from File SYSIN } 
{ and write then out to SYSOUT } 
type FREC = 

record 

A,B : INTEGER 

end; 

var 
SYSIN, 


SYSOUT: file of FREC; 


begin 
RESETCSYSIN); 
REWRITECSYSOUT); 
While not EOFCSYSIN) do 
begin 
SYSOUTa := SYSINA; 
PUTCSYSOUT); 
GETCSYSIN) 
end; 
end; 


10.13 READ AND READLN (TEXT FILES) 


Read Data from TEXT File 


Definition: 


procedure READ( 
f : TEXT; 
v : see below); 


procedure READLN(C 
f : TEXT; 
vv? see below); 


procedure READLNC 
f : TEXT); 


Where: 


f is an optional text file 
that is to be used for input. 
vis one or more variables, 
each must be one of the 
following types: 
- INTEGER Cor subrange) 


- CHAR Cor subrange) 
- REAL 

- SHORTREAL 

- STRING 


packed array of CHAR 


The READ procedure reads character data 
from the TEXT file f. READ converts 
character data to conform to the type of 
the operand(s). The file parameter is 
optional; the default file is INPUT. 


READLN reads in data Cif any variables 
are specified) the same way READ does 
and then positions the file at the 
beginning of the next line. You may use 
more than one variable on each call by 
separating each with a comma. The 
oraest is the same as multiple calls to 
READ. 
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READ(Cf,vl,v2) 
is equivalent to: 


begin 
READ(Cf,v1)5 
READCf,v2) 
end 


and 
READLNC f,vl,v2,v3) 
is equivalent to: 


begin 
READCf,vl)5 
READC f,v2)3 
READC f,v3)3 
READLNC £); 
end 


Multiple Variables on READ or READLN 


Reading INTEGER Data 


INTEGER data from a TEXT file is read by 
scanning off leading blanks, accepting 
an optional sign and converting all 
characters up to the first non-numeric 
character or end-of-line. 


Reading CHAR Data 
A variable of type CHAR is assigned the 
next character in the file. 


Reading STRING Data 

Characters are read into a STRING vari- 
able until the variable has reached its 
maximum length or until the end of the 
line is reached. 


Reading REAL (SHORTREAL) Data 


REAL (SHORTREAL) data is read by scan- 
ning off leading blanks, accepting an 
optional sign and converting all charac-— 
ters up to the first non-numeric charac- 
ter not conforming to the syntax of a 
REAL number. 
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Readin acked array of CHAR Data 

If the variable jis declared as a 
"packed array[l..n] of CHAR', charac- 
ters are stored into each element of the 
array. This is equivalent to a loop 
ranging from the lower bound of the 
array to the upper bound, performing a 
read operation for each element. If the 
end-of-line condition should become 
true before the variable is filled, the 
rest of the variable is filled with 
blanks. 


Consult the Programmer's Guide for more 
details on the use of READ and READLN. 


var 
I,J: INTEGER; 
S: STRINGC100); 
CH: CHAR; 


CC: packed array([1..101] of CHAR; 
Fi: TEXT; 


READLNCF,I,J,CH,CC,S)3 


assume the data is: 


36 24 ABCDEFGHIJKLMNOPQRS TUVWXYZ 


the variables would be assigned: 


I 36 

J 24 

CH ' ' 

cc "ABCDEFGHIJ' 

S 'KLMNOPQRSTUVWXYZ' 
LENGTH(S) 16 


The READ Procedure 


eading Variables with a Length 
You may optionally qualify a variable of 
READ with a field length expression: 


READC( f,vin) 


where "v" is the variable being read and 
hm" is the field length expression. 


This expression denotes the number of 
characters in the input line to be proc” 
essed for that variable. If the number 
of characters indicated by the field 
length is exhausted during a read opera- 
tion, then the reading operation will 
stop so that a subsequent read will 
begin at the first character following 
the field. If the reading completes 
prior to processing all characters of 
the field then the rest of the field is 
skipped. 


HEE EEE EEE EEE HEHEHE HEHEHE eH He HHH HHH 


var 
I,J: INTEGER; 
S: STRINGC100); 
CH: CHAR; 
cc: packed array[1..10] of CHAR; 
F: TEXT; 


READLNCF,1:4,J:10,CHiJ,CC,$); 


assume the data is: 


36 24 ABCDEFGHIKLMNOPQRSTUVWXYZ 


the variables would be assigned: 


I 36 

J 4 

CH ‘I! 

cc *NOPQRSTUVW' 


bs) "XYZ" 
LENGTHCS) 3 


The READ Procedure with Lengths 


10.14 READ (NON-TEXT FILES) 
Read Data from Non-TEXT Files 


Definition: 


procedure READC. 
f : file of t; 
vit t)3 


Where: 
f is an arbitrary file variable. 
v is a variable whose type matches 
the file component type of f 


Each call to READ will read one file 
element from file 'f* and assign it to 
variable ‘v'. If the file is not open, 
the READ procedure will open it prior to 
assigning to the argument. 


READCf,v) is functionally equivalent to 
the following compound statement: 


begin viz fa; GET(f) end 


For more details consult the Program- 
mer's Guide. 
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10.15 WRITE AND WRITELN (TEXT FILES) 


Write Data to 


FIle 


Definition: 


procedure WRITEC 
f : TEXT; 
e : see below); 


procedure WRITELN( 
f : TEXT; 
e : see below); 


procedure WRITELN( 


f ? TEXT); 


Where: 
f is an optional TEXT file 
variable. 
e is an expression of one of the 
following types: 
- INTEGER (Cor subrange) 
CHAR Cor subrange) 
REAL 
SHORTREAL 
BOOLEAN 
STRING 
packed arrayll..n] of CHAR 


Pascal/VS accepts a special para- 
meter format which is only 
allowed in the WRITE routine 
for TEXT files. 

See the following description. 


The WRITE procedure writes character 
data to the TEXT file specified by f. 
The data is obtained by converting the 


expression e into an external form. The 
file parameter is optional; if not spec- 
ified, the default file OUTPUT is used. 


WRITELN writes out data (Cif any expres-— 
sions are specified) the same way WRITE 
does and then positions the file to the 
beginning of the next line. WRITELN is 
only applicable to TEXT files. You may 
use more than one expression on each 
call by separating each with a comma. 
The effect is the same as multiple calls 
to WRITE. 
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WRITECf,e1,e2) 
is equivalent to: 


begin 
WRITECfF,e1); 
WRITECF,e2) 
end 


and 
WRITELN( f,e1,e2,¢e3) 
is equivalent to: 


begin 
WRITECf,e1); 
WRITECf,e2)3 
WRITECF,03)35 
WRITELNCF)35 
end 


Multiple Expressions on WRITE 


Pascal/VS supports a specialized form 
for specifying actual parameters. on 
WRITE and WRITELN to TEXT files. This 
provides a means by which you can speci- 
fy the length of the resulting output. 

Each expression in the WRITE procedure 
call may be represented in one of three 


forms: 

1. e 

2. e lenl 

3. e@ lenl len2 

The expression e may be of any of the 


types outlined above and represents the 
data to be placed on the file. The data 
is converted to a character represen- 
tation from the internal form. The 
expressions lenl and len2 must evaluate 
to an INTEGER value. 


The expression lenl supplies the length 
of the field into which the data is 
written. The data is placed jin the 
field justified to the right edge of the 


field. If lenl specifies a negative 
value, the data is justified to the left 
within a field whose length is 
ABSClenl). 


The len2 expression (form 3) may be spe- 


cified only if e is an expression of 
type REAL. 
If lenl is unspecified (form 1) then a 


default value is used according to the 


table below. 


c 


t+ete 


type of default value 
expression e of lenl 

INTEGER 12 

REAL 20 € E notation ) 
SHORTREAL 20 

CHAR 1 

BOOLEAN 10 


STRING 
array of CHAR 


LENGTHC expression) 
length of array 


Default Field Width on WRITE 


Writing INTEGER Data 


The expression lenl represents the mini- 
mum width of the field in which the 
integer is to be placed. The value is 
converted to character format and placed 
in a field of the specified length. If 
the field is shorter than the. size 
required to represent the value, the 
length of the field will be extended. 


Examples: 


Call: Result: 
WRITE(1234°6) " 1234! 
WRITE(1234:-6) "1234 =! 
WRITE(1234:1) "1234! 
WRITEC1234) : 1234¢' 
WRITE(1234:-3) "1234! 


Writing CHAR Data 


The value of lenl is used to indicate 
the width of the field in which the 
character is to be placed. If lenl is 


not specified, a field width of 1 is 
assumed. If lenl is greater than 1 then 
the character will be padded on the left 


with blanks; if lenl is negative, then 
the character will be padded on the 
right. 
Example: 
call: Result: 
WRITEC'a'’ 26) ' a' 
WRITEC'a':-6) "a ‘ 


Writing REAL CSHORTREAL) Data 


REAL expressions may be printed with any 
one of the three operand formats. f 
lenl is (form 1), the 


not specified 


+e tee te et 


+++ 


result will be in scientific notation in 
a 20 character field. 


If leni is specified and len2 is not 
(form 2), the result will be in scien- 
tific notation but the number of charac- 
ters in the field will be the value of 
lenl. 


If both leni and len2 are specified 
Cform 3), the data will be written in 
fixed point notation in a field with 
length leni; len2 specifies the number 
of digits that will appear to the right 
of the decimal point. The REAL expres- 
sion is always rounded to the last digit 
to be printed. 


If lenl is not large enough to fully 
represent the number, it will be 
extended appropriately. 
Examples: 
Call: Result: 
WRITEC3.14159:10) 


' 3.142E+00' 


WRITEC3.14159) 
' 3.1415900000000E+00' 


WRITEC3.14159:10:4) 
2.1416! 


Writing BOOLEAN Data 


The expression lenl is used to indicate 
the width of the field in which the boo- 
lean is to be placed. If the width is 
less than 6, then either a 'T' or 'F! 
will be printed. Otherwise, 
"FALSE' will be sent to the file. The 
data is placed in the field and justi- 
fied according to the previously stated 
rules. 


Examples: 


Call: Result: 
WRITECTRUE:10) : TRUE! 
WRITECTRUE:-10) "TRUE : 
WRITECFALSE:2) i ok 


Writing STRING Data 


The expression lenl is used to 
the width of the field 
string is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. If ABSClen1) is too small to 
hold the data, the string is truncated 
on the right. 


indicate 
in which the 
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Examples: 


Call: Result 
WRITEC' abcd’ :6) ' abcd’ 
WRITEC’abcd':-6) ‘abcd '* 
WRITEC'abcd':2) "ab' 
WRITEC' abcd’) "abcd! 


Writing Packed Array of CHAR Data 


The expression leni is used to indicate 
the width of the field in which the 
array is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. If ABSC€lenl) is too small to 
hold the data, the string is truncated 
on the right. 


Examples: 
var 
A : packed 


array[ 1..4] of CHAR; 


A -= 'abed'; 

Call: Result: 
WRITECA:6) ' abed' 
WRITECA:-6) ‘abed ' 
WRITECA:2) "ab* 
WRITECA) ‘abcd’ 


116 Pascal/VS Reference Manual 


10.16 WRITE (NON-TEXT FILES) 


Write Data to Non-TEXT Files 


Definition: 


procedure WRITEC 
f : file of t; 
e: t); 


Where: 

f is an arbitrary file variable. 
e iS an expression whose type 
matches the file component 

type of f 


Each call to WRITE will write the value 
of expression e to file 'f'. 


WRITECf,e) is functionally equivalent 
to the following compound statement: 
begin fa := 9; PUT(f) end 


For more details consult the Program- 
mer's Guide. 


0,17 EOL UNCTION 


Test a File for End of Line 


Definition: 
function EOLNC f: TEXT ):BOOLEAN; 
function EOLN:BOOLEAN; 


Where: 
f is a TEXT file set to 
input. 
The EOQLN function returns a BOOLEAN 


result of TRUE if TEXT file f is posi- 
tioned to an end-of-line character; oth- 
erwise, it returns FALSE. 


If EQLNCf) is true, then fa has the val- 
ue of a blank. That is, When EOLN is 
TRUE the file is positioned to a blank. 
This character is not in the file but 
will appear as if it were. In many 
applications the extra blank will not 
affect the result; in those instances 
where the physical layout of the data is 
significant you must be sensitive to the 
EOQLN condition. 


If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 


10.18 PAGE PROCEDURE 


Force Skip to Next Paga 


Definition: 


procedure PAGE(C var f: TEXT ); 
Where: 


f is a TEXT file set to 
output. 


This procedure causes a skip to the top 
of the next page when the text-file is 
printed. The file parameter i5 optional 
and defaults to the standard file vari- 
able OUTPUT. 
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10.19 COLS FUNCTION 


Determine Current Column 


Definition: 


function COLS¢ 


var f: TEXT ) = INTEGER; 


Where: 


f 


118 


is a TEXT file set to 
output. 
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This function returns the current column 
number (position of the next character 
to be written) on the output file desig- 
nated by the file variable. You may 
force the output to a specific column 
with the following code: 


if TAB > COLSC(F) then 
WRITECF,' ':TAB-COLSCF)); 


The file name is never defaulted on the 
COLS procedure. 


++et 
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The runtime library consists of those 


routines that are predefined in 
Pascal/VS. In addition to the routines 
described in this chapter, Pascal/VS 


provides routines with which to do input 
and output. Consult the I70 chapter for 
a description of those routines. The 
predefined procedures and functions 
are: 

e ABS Function 

e ADDR Function 

e ARCTAN Function 

e CHR Function 

e CLOCK Function 

e COMPRESS Function 

e COS Function 

e DATETIME Procedure 

e DELETE Function 

° DISPOSE Procedure 

° EXP Function 

° FLOAT Function 

° INDEX Function 

° HALT Procedure 

° HBOUND Function 

e HIGHEST Function 

e LBOUND Function 

° LENGTH Function 

° LN Function 

e LOWEST Function 

e LTRIM Function 

e MARK Procedure 

° MAX Function 


++ 
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++ 
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11.0 EXECUTION LIBRARY FACILITIES 


MAXLENGTH Function 
MIN Function 

NEW Procedure 

ODD Function 

ORD Function 

PACK Procedure 
PARMS Function 
PRED Function 
RANDOM Function 
READSTR Procedure 
RELEASE Procedure 
RETCODE Procedure 
ROUND Function 
Scalar Conversion 
SIN Function 
SIZEOF Function 
SQ@R Function 

SQRT Function 

STR Function 
SUBSTR Function 
SUCC Function 
TRUNC Function 
TRIM Function 
TOKEN Function 
TRACE Procedure 
UNPACK Procedure 
WRITESTR Procedure 
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11.1 MEMORY MANAGEMENT ROUTINES 


These routines provide means by which you can control the allocation of dynamic var- 


iables. 


11.1.1 MARK Procedure 


Mark Heap 


Definition: 


procedure MARK( 
var P > pointer ); 


Where: 


P is a pointer to any type 


The MARK procedure allocates a new area 
of memory from where dynamic variables 


are to be allocated. Such an area is 
called a heap.. The predefined proce- 
dure NEW allocates a dynamic variable 


from the most recently created heap. 
The predefined procedure DISPOSE 
de-allocates a dynamic variable from the 
heap. 


RELEASE is the complementary procedure 
which destroys a heap. Heaps are cre- 
ated and destroyed ina stack-~like fash- 
ion. 


MARK does not allocate dynamic 
variables. The pointer variable passed 
as parameter P is set to the address of 
the associated heap control block; thus, 
the returned pointer must not be used as 
the base of a dynamic variable. 


when the heap is freed. 
unpredictable results. 


120 Pascal/VS Reference Manual 


teeeete 


t+eeeeeteeese 


HHH EEE HEHEHE Hee ee Hee eeeeeeet 


11.1.2 RELEASE Procedure 


Release Heap 


Definition: 


procedure RELEASEC 
var P > pointer ); 


Where: 


P is a pointer to any type. 


RELEASE frees one or more heaps that 
were previously allocated by calls to 
MARK. (See the description of MARK for 
a definition of "heap.") The parameter 
of RELEASE must contain the address 
returned by a previous call to MARK; it 
is through this parameter that the heap 
is identified. 


RELEASE frees all heaps that were allo- 
cated since the corresponding MARK was 
executed. Thus, heaps are created and 
destroyed ina stack-like manner. 


When a heap is freed, all of the dynamic 
variables which were allocated from the 
heap are also freed. As a rasult, 
RELEASE is a means for disposing of many 
dynamic variables at one time.‘ 


RELEASE sets its parameter variable (P) 
to nil. 


Pointers which reference dynamic variables of a heap are no longer defined 
Subsequent uses of such pointer values may cause 


J 


J 
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type 
MARKP = aINTEGER; 
LINKP = aLINK; 


LINK = record 
NAME: STRING(30)3 


NEXT: LINKP 
end; 

var 

P > MARKP; 

Ql, 

Q2, 

Q3 > LINKP; 
begin 

MARKCP)3 

NEW(Q1); 

NEW(Q2)5 

NEW(Q3)5 


{ Frees Ql, Q2 and Q3 
RELEASECP); 


end; 


Example of MARK and RELEASE 


++et 


11.1.3 NEW Procedure 
Allocate Dynamic Variable 


Definition: 


form 1: 
procedure NEW( 
var P > pointer )3 


form 2: 
procedure NEW(C 
var Pl > pointer; 
t1,t2... scalar); 


form 3: 
procedure NEW( 
var SP STRINGPTR; 
LEN : INTEGER; 


Where: 


P is a pointer to any type 
except a dynamic array. 

Pl is a pointer to a record 
type with variants 

SP is a STRINGPTR 

t1,t2... are scalar constants 
representing tag fields 

LEN is an integer valued expression 


The NEW procedure allocates a dynamic 
variable from the most recent heap and 
sets the pointer to point to the vari- 
able. 


form 1 


The first form of procedure NEW allo- 
cates the amount of storage that is nec~ 
essary to represent a value of the type 
to which the pointer refers. If the 
type of the dynamic variable is a record 
with a variant part, the space allocated 
is the amount required for the record 
when the largest variant is active. 
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e 
LINKP = aLINK; 
LINK = record 
NAME: 
NEXT: 
end; 


STRING(30)35 
LINKP 


LINKP; 
begin 
NEWCP) 3 
With Pa do 
begin 
NAME 
NEXT 


end; 
HEAD := P; 


HEAD; 


end; 


Example of using Simple Form 
of Procedure NEW 


form 2 


The second form is used to allocate a 


variant record when it is Known which 
variant Cand sub-variants) will be 
active, in which case the amount of sto- 


rage allocated will be no larger than 
necessary to contain the variant speci- 
fied. The scalar constants are tag 
field values. The first one indicates a 
particular variant in the record which 
will be active; subsequent tags indicate 
active sub-variants, sub-sub-variants, 
and 50 on. 


Note: This procedure does not set ta 

fields. The tag list only serves to 
indicate the amount of storage required; 
it is the programmer's responsibility to 
set the tag fields after the record is 
allocated. 
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type 
AGE = 
RECP 
REC 


0..100; 
= aREC; 


record 
NAME: STRING(30); 
case HOW_OLD: AGE of 
0..18: 
CFATHER: 
19..100: 
(case MARRIED: BOOLEAN of 
TRUE: CSPOUSE: RECP); 
FALSE: () 
) 


RECP); 


end; 
var 
P > RECP; 
begin 
NEWCP,18)3 
With Pa do begin 
NAME == "J. B. 
HOW_OLD := 18; 
NEWCFATHER, 54, TRUE); 
With FATHERS’ do begin 
NAME := "J. B. SMITH’; 
HOW_OLD := 543 
MARRIED := TRUE; 
NEWCSPOUSE,50, TRUE); 


SMITH, JR 


end {with fathera}; 
end {with pa}; 


end; 
Using NEW for Allocating 
Records with Variants 

form 3 

The third form is used to allocate a 
string whose maximum length is known 
only during program execution. The 
amount of storage to be available for 
the string is defined by the required 
second parameter. See "The Type 


STRINGPTR" on page 60. 


11.1.4 DISPOSE Procedure 


De-allocate Dynamic Variable 


Definition: 


procedure DISPOSEC( 
var P : pointer); 


Where: 


P is any pointer type. 


DISPOSE returns storage for a dynamic 
variable and sets the pointer to nil. 
You may de-allocate a dynamic variable 
from any heap. This procedure only 
returns the storage referred to by the 
pointer and does not return any storage 
which the dynamic variable references. 
That is, if the dynamic variable is part 
of a linked list, and your intent is to 
DISPOSE of the whole list, you must 
explicitly DISPOSE of every element of 
the list. If you have other pointers 
which reference the same DISPOSEd dyna- 
mic variable, then it is your 
responsibility not to use these pointers 
because the dynamic variable which they 
represented is no longer allocated. 
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1.2 D OVENENT ROUTINES 


These routines provide you with convenient ways to handle large amounts of data 


movement efficiently. 


11.2.1 PACK Procedure 
Copy Unpacked Array to Packed Array 


Definition: 


procedure PACK( 
const SOURCE array-type; 
INDEX =: index_of_source; 


var TARGET pack_array_type) 
Where: 
SOURCE is an array. 
INDEX is an expression which is 
compatible with the index 
of SOURCE. 


TARGET is a packed array variable. 


This procedure copies elements from the 
unpacked source array, starting with the 
Ith element, to the packed target array. 
The types of the elements of the two 
arrays must be identical. This proce- 
dure operates as: 


Given: 
A: array[m..nl] of T; 
Z : packed arraylu..vl] of T; 


Call: 
PACKCA, I, 2); 
Operation: 
k := 3 
for 3 *= LBOUND(Z) to HBOUND(2Z) do 
begin 


Z[j] := ALk]; 
k := SUCCC(k) 
end; 


Where: 
j and k are temporary variables. 


It is an error if the number of elements 
in Z is greater than the number of ele- 
ments in A starting with the Ith element 
to the end of the array. 
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11.2.2 UNPACK Procedure 


Copy Packed Array to Unpacked Array 


Definition: 


Procedure UNPACK( 
const SOURCE pack_array_type; 
var TARGET array-type; 
INDEX : index_of_target)}; 


Where: 


SOURCE is a packed array. 

TARGET is an array variable. 

INDEX is an expression which is 
compatible with the index 
of TARGET. 


This procedure copies elements from the 
packed source array to the unpacked tar- 
get array, starting with the Ith element 
of the target array. The type of the 
elements of the two arrays must be iden- 
tical. This procedure operates as: 


Given: 
A : arrayl[m..n] of T; 
Z : packed arraylu..v] of T; 


Call: 
UNPACK(Z, A, 1)3 
Operation: 
k ?= I; 
for j *= LBOUND(Z) to HBOUND(Z) do 
begin 
Atk] := 213]; 
k := SUCCCk) 
end; 
Where: 


j and k are temporary variables. 


It is an error if the number of elements 
in Z is greater than the number of ele- 
ments in A starting with the Ith element 
to the end of the array. 


J 
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11.3 _ DATA ACCESS ROUTINES 


These routines provide you a means to 
values. 


11.3.1 LOWEST Function 
Lowest Value of a Scalar 


Definition: 


function LOWEST 
S 


scalar-type) 
scalar; 


Where: 


S is an identifier that has been 
declared as a scalar type, or 
a variable which is of a scalar 
type. 


This function returns the lowest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function is 
the lowest value that a variable of that 
type may be assigned. If the operand is 
a variable, the value of the function is 
the lowest value that the variable may 
be assigned. 


Example: 

type 
DAYS = (SUN, MON, TUES, WED, 

THU, FRI, SAT); 

SMALL = 0... 31; 

var 
I > INTEGER; 
J > 0 255; 
LOWESTCDAYS) is SUN 
LOWESTCBOOLEAN) is FALSE 
LOWESTCSMALL) is 0 
LOWESTCI) is MININT 
LOWESTCJ) is 0 


The LOWEST Function 


+e t+ 
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inquire about compile and run time bounds and 


11.3.2 HIGHEST Function 


Highest Value of a Scalar 


Definition: 


function HIGHEST ( 
S scalar-type) 
scalar; 


Where: 


S is an identifier that has been 
declared as a scalar type, or 
@ variable which is of a scalar 
type, 


This function returns the highest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function is 
the highest value that a variable of 
that type may be assigned. If the oper- 
and is a variable, the value of the 
function is the highest value that the 
variable may be assigned. 


Example: 

type 
DAYS = (SUN, MON, TUES, WED, 

THU, FRI, SAT); 

SMALL = 0 .. 313 

var 
I : INTEGER; 
J 7 0 .. 255; 
HIGHESTCDAYS) is SAT 
HIGHESTCBOOLEAN) is TRUE 
HIGHESTCSMALL ) is 31 
HIGHESTCI) is MAXINT 
HIGHEST CJ) is 255 


The HIGHEST Function 
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11.3.3 LBOUND Function 


Lower Bound of Array 


Definition: 


function LBOUND( 
y > arraytype; 
I : integer-const) 
> scalar; 


function LBOUND( 
T : 


type-identifier; 
I > integer-const) 
> scalar; 

Where? 

Vis a variable which is declared 
as an array type. 

T is an type identifier declared 
as an array. 

I is an positive integer valued 
constant expression and is 
optional. 


The LBOUND function returns the lower 
bound of an index to an array. The 
array may be specified in two ways: 


° an identifier which was declared as 
an array type via the type 
construct; 

° a variable which is of an array 
type. 


The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the lower bound is 
returned. It is assumed to be "1" if it 
is not specified. 


The LBOUND function also works on space 
types. 


Example: 
type 
GRID = array{-10..10,-10..10] of 
REAL; 
var 
A array( 1..100 1] af ALFA; 
B array( 1..100 1] of 
of arrayl 0..9 ] of CHAR; 
LBOUND( A ) isl 
LBOUNDC GRID, 1) is -10 
LBOUNDC B, 2 ) is 0 
LBOUND( Bf1] ) is 0 
The LBOUND Function 
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1.3. HBOUND Functio 
Upper Bound of Array 


Definition: 


function HBOUND( 
Vv : 


arraytype; 
I > integer-const) 
' scalar; 


function HBOUND( 
T > type-identifier; 
I > Integer-const) 
: scalar; 
Where: 
Vis a variable which is declared 
as an array type. 
T is an type identifier declared 
as an array. 
I is an positive integer-valued 
constant expression and is 
optional. 


The HBOUND function returns the upper 
bound of an index to an array. The 
array may be specified in two ways: 


e an identifier which was declared as 
an array type via the type 
construct; 

e a variable which is of an array 
type, 


The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the upper bound is 
returned. It is assumed to be "1" if it 
is not specified. 


The HBOUND function also works on space 
types. 


Example: 
type 
GRID = array[-10..10,-10..10] of 
REAL; 
var 
A = GRID; 
B > arrayl 1..100 ] of 
of arrayl 0..9 ] of CHAR; 
HBOUND( A ) is 10 
HBOUNDC GRID ) is 10 
HBOUNDC B, 2 ) is 9 
HBOUNDC B[1] ) is 9 
The HBOUND Function 
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11.3.5 SIZEOF Function 


Allocation Size of Data 


Definition: 
function SIZEOF( 
S > anytype) 
+ INTEGER; 
function SIZEOF¢ 
S > recordtype; 
t1,t2,... tags); 
INTEGER; 
Where: 
S is an identifier that has been 


declared as a type, 
variable. 


or any 


The SIZEOF function returns the amount 
of storage in bytes required to contain 
the variable or a variable of the type 
specified. 

If the argument S refers to a 
record-type which has a variant part, 
and if no tag values are specified, then 


the storage required for the record with 
the largest variant will be returned. 


If S$ is a record variable or a type 
identifier of a record, it may be fol- 
lowed by tag list which defines a par- 


ticular variant configuration of the 
record. In this case the function will 
return the amount of storage required 


within the record to contain that vari- 
ant configuration. 


11.3.6 ADDR Function 


Storage Location of Data 


Definition: 


function ADDR¢ 
V > anyvariable) 
INTEGER; 


Where: 


V is an identifier that has been 
declared as a variable 


The ADDR function returns the location 
in memory of the given variable. A var- 
jable includes qualified variables such 
as dereferanced pointers, subscripted 
variables and fields of records. 
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11.4 CONVERSION ROUTINES 


This section documents predefined routines which preform conversions from one data 
type to another. Refer to "READSTR" on page 143 and "WRITESTR" on page 144 for char- 


acter string conversions. 


11.4.1 ORD Function 


Ordinal Value of Scalar 


Definition: 


function ORD( 
5 scalar ) 
INTEGER; 


Where: 


S may be any scalar type or 
a pointer. 


This function returns an integer that 
corresponds to the ordinal value of the 
scalar. If the operand is of type CHAR 
then the value returned is the position 
in the EBCDIC character set for the 
character operand. If the operand is an 
enumerated scalar, then it returns the 
position in the enumeration (beginning 
at zero); for example, if COLOR = (CRED, 
YELLOW, BLUE), then ORDCRED) is 0 and 
ORDC(BLUE) is 2. 


If the operand is a pointer, then the 
function returns the machine address of 
the dynamic variable referenced by the 
pointer. Although pointers can be con- 
verted to INTEGERS, there is no function 
provided to convert an INTEGER to a 
pointer. 
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11.4.2 CHR Function 


Integer to Character Conversion 


Definition: 
function CHR( 
I 


INTEGER )} 
CHAR; 
Where: 


I is an INTEGER expression that is 
to be interpreted as a character. 


This function is the inverse function to 
ORD for characters. That is, 
TORDCCHRCIDI=I' if I is in the subrange: 


ORDCLOWESTCCHAR)). .ORDCHIGHEST (CHAR) ) 


If the operand is not within this range 
and checking is enabled then a runtime 
error will result, otherwise the result 
is unpredictable. 


+eeet 
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11.4.3 Scalar Conversion + 11.9.4 FLOAT Function 
+ 
+ 
Integer to Scalar Conversion + Integer to Real Conversion 
+ 
Definition: + Definition: 
+ 
function type-id¢ + | function FLOAT 
I > INTEGER) + I : INTEGER ) 
scalar-type; + > REAL; 
+ 
Where: + 
+ Where: 
I. is an integer valued expression + 
that is to be converted to an + I is an INTEGER valued expression. 
enumerated scalar. + 
+ 
+ 
+ 
Every type identifier for an enumerated + This function converts an INTEGER to a 
scalar or subrange scalar can be used as + REAL. Pascal/VS will convert an INTEGER 
a function that converts an integer into + to a REAL implicitly if one operand of 
a value of the enumerated scalar. These + an arithmetic or relation operator is 
functions are the inverse of ORD. + REAL and the other is INTEGER. This 
+ function is useful in making the conver- 
+ sion explicit in the program. 
Example: 
type 
DAYS = (SUN, MON, TUES, WED, 
THU, FRI, SAT); 
DAYS(0) is SUN 
DAYS(3) is WED 
DAYS(6) is SAT 
DAYS(7) is an error 
BOOLEANCO) is FALSE 
BOOLEAN(1) is TRUE 


The Enumerated Scalar Function 
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11.4.5 TRUNC Function 11.4.6 ROUND Function 


Real to Integer Conversion Real to Integer Conversion 


Definition: Definition: 
function TRUNCC function ROUNDC 
R REAL ) R REAL ) 
INTEGER; INTEGER; 
function TRUNC(¢ function ROUND( 
S : SHORTREAL ) bs) > SHORTREAL ) 
: INTEGER; > INTEGER; 


Where: Where: 


R is a REAL valued expression. 
S is a SHORTREAL valued expression. 


R is a REAL valued expression. 
S is a SHORTREAL valued expression. 


This function converts a REAL expression This function converts a REAL expression 
to an INTEGER by truncating the operand to an INTEGER by rounding the operand. 
toward zero. This function equivalent to 
Examples: if R > 0.0 then 
ROUND := TRUNCCR + 0.5) 
TRUNCC 1.0) is 1 else 
TRUNCC 1.1) is 1 ROUND := TRUNCCR - 0.5) 
TRUNCC 1.9) is 1 
TRUNCC 0.0) is 0 Examples: 
TRUNC(-1.0) is -l 
TRUNC(-1.1) is -1 ROUND( 1.0) is 1 
TRUNC(-1.9) is -1 ROUND( 1.1) is 1 
ROUND( 1.9) is 2 
ROUND( 0.0) is 0O 
ROUND(-1.0) is -1 
ROUND(-1.1) is -1 
ROUND(-1.9) is -2 
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11.4.7 STR Function 


Convert to String 


Definition: 


function STR¢ 
x : CHAR or packed 
arrayll..n] of 
CHAR ) 
STRING; 


Where: 


X is CHAR or packed array[1..n1 of 
CHAR expression. 


++eetegteeteeeeeeeeee 


This function converts either a CHAR or 
packed array(l..n] of CHAR to a STRING. 
Pascal/VS will implicitly convert a 
STRING to a CHAR or packed arrayll..ni 
Of CHAR on assignment, but all other 
conversions require you to explicitly 
state the conversion. You may assign a 
CHAR to an packed array[1..n] of CHAR by 
either: 


var 
AOC ALPHA; 
CH : CHAR; 
AOC == STRCCH); 

or 

AQC == ' '3 


AOCT1] := CH; 
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11.5 MATHEMATICAL ROUTINES 


These routines define various mathematical transformations. 


11.5.1 MIN Function 


Minimum Value of Scalars 


Definition: 


function MINC 
Ed, 


En > scalar-type) 
scalar-type; 


Where: 


Ei is an expression of a scalar 
type. All parameters must be 
of the same type except where 
noted below. 


The MIN function returns the minimum 
value of two or more expressions. The 
parameters may be of any scalar type, 
including REAL. The parameters may be a 
mixture of INTEGER and REAL expressions, 
in which case, the result will be of 
type REAL. In all other cases, the 
parameters must be conformable to each 
other. 
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+ 11.5.2 MAX Function 


Maximum Value of Scalars 


+++ 


+ Definition: 

+ 

+ | function MAx¢ 

+ EQ, 

+ . 

+ . 

+ En > scalar-type) 

+ scalar-type; 

+ 

+ Where: 

+ 

+ Ei is an expression of a scalar 

+ type. All parameters must be 

+ of the same type except where 

+ noted below. 

+ 

+ 

+ 

+ The MAX function returns the maximum 
+ value of two or more parameters. The 
+ parameters may be of any scalar type, 
+ including REAL. They may be a mixture 
+ of INTEGER and REAL expressions, in 
+ which case, the result will be of type 
+ REAL. In all other cases, the parame- 
+ ters must be conformable to each other. 


c 


11.5.3 PRED Function 


Predecessor Value of a Scalar 


Definition: 
function PRED¢ 
S > scalar) 
scalar; 


Where: 


S is any scalar expression. 


This function returns the predecessor 
value of the parameter expression. The 
PRED of the first element of an enumer- 
ated scalar is an error. If the option 
%CHECK is ON, a runtime error will be 
raised if the PRED of the first element 
is attempted. If the checking is not 
performed, the results of the PRED of 
the first value is not defined. 
PREDCTRUE) is FALSE and PREDC'B') is 
"A", The PRED of an INTEGER is equiv- 
alent to subtracting one. PRED of a 
REAL argument is an error. 


11.5.4 SUCC Function 


Successor Value of a Scalar 


OT 


Definition: 

function SUCC¢ 
S scalar) 

scalar; 


Where: 


S is any scalar expression. 


This function returns the successor val- 
ue of the parameter expression. The 
SUCC of the last element of an enumer- 
ated scalar is an error. If the option 
“CHECK is ON, a runtime error will ba 
raised if the SUCC of the last element 
is attempted. If the checking is not 
performed, the results of the SUCC of 
the last value is not defined. 
SUCCCFALSE) is TRUE and SUCCC'B') jis 
'c'. The SUCC of an INTEGER is equiv- 
alent to adding one. SUCC of a REAL 
argument is an error. 
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11.5.5 ODD Function 11.5.6 ABS Function 


Test for Integer is Odd Absolute Value 
Definition: Definition: 
function oDD¢ function ABSC 
I : INTEGER) I : INTEGER ) 


BOOLEAN; > INTEGER; 


function ABS( 
here: R > REAL) 


REAL; 
I is an INTEGER to be tested 
for being odd. 


Where: 


I is an INTEGER expression. 
R is a REAL expression. 


This function returns TRUE if the param- 
eter I is odd, or FALSE if it is even. 


The ABS function returns either a REAL 
value or an INTEGER value depending the 
type of its parameter. The result is 
the absolute value of the parameter. 
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11.5.7 SIN Function 11.5.8 COS Function 


Compute Sine Compute Cosine 
Definition: Definition: 
function SINC function cos¢ 
4 : x : REAL) 
3 REAL; 
Where: Where: 
X is an expression that evaluates X is an expression that evaluates 
to a REAL value. to a REAL value. 
The SIN function computes the sine of The COS function computes the cosine of 
parameter X, where X is expressed in the parameter X, where X is expressed in 


radians. radians. 
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11.5.9 ARCTAN Function 
Compute Arctangent 
Definition: 


function ARCTAN( 
x 


Where: 


X is an expression that evaluates 
to a REAL value. 


The ARCTAN function computes the arctan- 
gent of parameter X. The result is 
expressed in radians. 
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11,5.10 EXP Function 


Compute Exponential 


Definition: 


function EXP ¢ 
x 


Where: 


X 15 an expression that evaluates 
to a REAL value. 


The EXP function computes the value of 
the base of the natural logarithms, a, 
raised to the power expressed by parame- 
ter X. 


11.5.11 LN Function 


Compute Natural Log 


Definition: 


function LN¢ 
xX 


Where? 


X is an expression that evaluates 
to a REAL value. 


The LN function computes the natural 


logarithm of the parameter X. 


11.5.12 SQRT Function 


Compute Square Root 


Definition: 


function SQRt¢ 
xX REAL) 
REAL; 


Where: 


X 1S an expression that evaluates 
to a REAL value. 


The SQRT function computes the square 
root of the parameter X. If the argu- 
ment is less than zero, a run time error 
is produced, 
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11.5,13 SQR Function 


Compute Square 


Definition: 


function SQR¢ 
X =: REAL): REAL; 
function SQRC 


X = INTEGER): INTEGER; 


Where: 


X is an expression that evaluates 
to a REAL or INTEGER value. 


of 
is of 
result is 

function 


The SQR function computes the square 
the argument. If the argument 
type REAL, then ae REAL 
returned, otherwisa the 
returns an INTEGER. 
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11.5.14 RANDOM Function 
Compute a Random Number 


Definition: 


function RANDOM‘ 


S : INTEGER) REAL; 


Where: 


S is an expression that evaluates 
to an INTEGER value. 


The RANDOM function returns a pseudo 
random number in the range >0.0 and 
<1.0. The parameter S is called the 


seed of the random number and is used to 
specify the beginning of the sequence. 
RANDOM always returns the same value 
when called with the same non-zero seed. 
If you pass a seed value of 0, RANDOM 
will return the next number as generated 
from the previous seed. Thus, the gen- 
eral way to use this function is to pass 
it a non-zero seed on the first invoca- 
tion and a zero value thereafter. 


tee eteeteeete 
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++ 


11.6 STRING ROUTINES 


These routines provide convenient means of operating on string data. 


11.6.1 LENGTH Function 


Length of String 


Definition: 


function LENGTH(¢ 
S : STRING) 
: 0..32767; 


Where: 


S is a STRING valued expression. 


This function returns the current length 
of the parameter. The value will be in 


the range 0..32767. 


+ 11.6.2 MAXLENGTH Function 


+ 

+ 

+ Maximum Length of a String 
+ 

+ Definition: 

+ 

+ function MAXLENGTH( 

+ S > STRING) 

+ > 0..32767; 
+ 

+ 

+ Where: 

+ 

+ S$ is a STRING valued expression. 
+ 

+ 

+ 

+ 


+ This function returns the maximum length 
+ of the parameter string. The value will 
+ be in the range 0..32767. 
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11.6.3  SUBSTR Function 


Obtain Substring 


Definition: 


function SUBSTR( 


const SOURCE STRING; 
START INTEGER; 
LEN : INTEGER): STRING; 
function SUBSTR( 
cdnst SOURCE STRING; 
START INTEGER): STRING; 


Where: 

SOURCE is a STRING expression from 
which a substring will be 
returned. 

START is an INTEGER expression that 
designates the first position 
in the SOURCE to be returned. 

LEN is an INTEGER expression that 
defines the number of 
characters to be returned. 


The SUBSTR function returns a substring 
from the specified source string 
CSOURCE). The second parameter (START) 
specifies the starting position within 
the source from where the substring is 
to be extracted. (The first character 
of the source string is at position 1). 
The third parameter (LEN) determines the 
length of the substring. If the length 
is omitted, the substring returned will 
be the remaining portion of the source 
string from position START. 


The valua of START+LEN-1 must be less 
than or equal to the current LENGTH of 
the string, otherwise, an error diagnos- 
tic will be produced at run time. 


Examples: 


SUBSTRC'ABCDE',2,3) yields ‘BCD’ 
SUBSTR(C*ABCDE'’,1,3) yields 'ABC' 
SUBSTRC*ABCDE',4) yields 'DE' 

SUBSTRC'ABCDE',1) yields ‘ABCDE' 
SUBSTRC'ABCDE',2,5) is an error 
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11.6.4 DELETE Function 


Delete Substring 


Definition: 


function DELETEC 


const SOURCE STRING; 
START INTEGER; 
LEN : INTEGER): STRING; 


function DELETEC 
const SOURCE 
START 


STRING; 
INTEGER): STRING; 


Where: 


SOURCE is a STRING expression from 
which a portion will be 
deleted. 

START is an INTEGER expression that 
designates the first position 
in the SOURCE to ba deleted. 

LEN is an INTEGER expression that 
dafines the number of 
characters to be deleted. 


The DELETE function returns the source 
string (CSOURCE) with a portion of the 
string removed, The second parameter 
CSTART) specifies the starting position 
within the source where characters are 
to be deleted. (The first character of 
the source string is at position 1). 
The third parameter (LEN) specifies the 
number of characters to be deleted. If 
the length parameter is omitted, all 
remaining characters are deleted; more 
precisely, the string is truncated 
beginning at position START. 


An attempt to delete a portion of the 
source beyond its length is an execution 
time error. 


Examples: 


DELETEC'ABCDE'’,2,3) yields ‘AE’ 
DELETEC'ABCDE',3) yields ‘AB’ 
DELETEC'ABCDE',3,1) yields 'ABDE' 
DELETEC'ABCDE',1) yields '' 


J 
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11.6.5 TRIM Function 


Remove Trailing Blanks 


Definition: 


function TRIM( 
const SOURCE : STRING) 


STRING; 


Where: 
SOURCE is the STRING to be trimmed. 


The TRIM function returns the parameter 
value with all trailing blanks removed. 


Example: 


TRIMC' AB ') yields ' A B! 
TRIMC! ") yields '' 
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11.6.6 LTRIM Function 


Remove Leading Blanks 


Definition: 
function LTRIM( 
const SOURCE : STRING) 
>: STRING; 
Where: 


SOURCE is the STRING to be trimmed. 


The LTRIM function returns the parameter 
value with all leading blanks removed. 


Example: 


LTRIMC' A B ') yields 'A B ! 
LTRIMC' ") yields ''* 
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11.6.7 COMPRESS Function 


Remove Multiple Blanks 


Definition: 


function COMPRESS ( 
const SOURCE STRING) 
STRING; 


Where: 


SOURCE is a the STRING expression 
to be compressed. 


The COMPRESS function replaces multiple 
blanks with a single blank. 


Example: 


COMPRESSC'A B CD ') yields 'A BCD! 
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11.6.8 INDEX Function 


Lookup String 


Definition: 
function INDEX( 
const SOURCE STRING; 
const LOOKUP STRING) 
0..32767; 
Where: 
SOURCE is a STRING that contains 


the data to be compared against. 
LOOKUP is the data to be looked 
up in the SOURCE. 


The INDEX function compares the second 
parameter against the first and returns 
the starting index of the first instance 
where LOOKUP begins in SOURCE. If there 
are no occurrences, then a zero is 
returned. 
Examples: 
var 

S : STRING; 

S$ := "ABCABC!: 


INDEX(S,'BC") yields 2 
INDEX(S,'X"') yields 0 


+ 
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11.6.9 TOKEN Procedure 


Find Token 


Definition: 


procedure TOKEN( 
var POS > INTEGER; 
const SOURCE STRING; 
var RESULT ALPHA); 


Where: 


POS is tha starting index in SOURCE 
of where to look for a token, it 
is set to the index of where to 
resume the search on the next 
use of TOKEN. 

SOURCE is a STRING that contains 
the data from which a token 
is to be extracted. 

RESULT is the variable which will 
be returned with token found. 


The TOKEN procedure scans the SOURCE 
string looking for a token and returns 
it as an ALPHA. The starting position 


of the scan is passed as the first 
parameter. This parameter is changed to 
reflect the position which the scan is 
to be resumed on subsequent calls. 
Leading blanks, multiple blanks and 
trailing blanks are ignored. If there 
is no token in the string, POS is set to 
LENGTHCSOURCE)+1 and RESULT is set to 
all blanks. 


A token is defined to be any of: 


° Pascal/VS identifier - 1 to 
alphanumeric characters, '$' or an 
underscore. The first letter must 
be alphabetic or a '$!', 


16 


e Pascal/VS 
page 18. 


unsigned integer - see 


e The following special symbols: 


+ - * 7 -> a ¢ 

= <> < <= >= > ' 

¢ ) [ ] ' " % 

| & && | | = a= # 

{ } (KO) 7K 
Example: 
I := 23 
TOKENCI,', Token+', RESULT) 

I is set to 8 

RESULT is set to 'Token ' 


TOKEN would return the same 
I were set to 3, that is, 
leading blanks are ignored. 


if 


+ 
+ 
+ 
+ 
+ 


FEE HEHEHE HEHEHE HEH tee eet 


++eteeees+ 


HEHEHE HEE HEHEHE HHH Hee eH eee eeeeeeeteeest 


11.6.10 READSTR 


Read Data from a STRING 


Definition: 


procedure READSTR( 
const s STRING; 
vt see below); 


Where: 


s is a STRING expression that 
is to be used for input. 

v is a list of one or more 
variables, each must be one 
of the following types: 

- INTEGER Cor subrange) 


CHAR Cor subrange) 
—- REAL 
- SHORTREAL 
- STRING 


packed array of CHAR 


The 
data 


READSTR procedure 
from a source string 


reads character 
into one or 
more variables. The actions of READSTR 
are identical to that of READ except 
that the source data is extracted froma 


string expression instead of a text 
file. See "READ and READLN- CTEXT 
Files)" on page 111. READSTR is espe- 


cially useful for converting a STRING to 
a different type. 


As in the READ procedure, variables may 
be qualified with a field length expres- 


sion. See the example below. 
var 
I,J: INTEGER; 
S§ : STRING(100); 
Si : STRING(100); 
CH CHAR; 
cc packed arrayl1..10] of CHAR; 
Sis "36 245ABCDEFGHIJK'; 


READSTR(S,1,J3:3,CH,CC:5,51); 


the variables would be assigned: 


I 36 

J 24 

CH "5! 

cc "ABCDE ' 
$1 "FGHIJK’; 


LENGTH(S1) 6 
The READSTR Procedure 
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11.6.11 WRITESTR 


Write Data to a STRING 


Definition: 


procedure WRITESTR( 
var s : STRING; 
e ? see below); 


Where: 


s,is a STRING variable 
e@ is an expression of one of the 
following types: 
~ INTEGER (or subrange) 
CHAR Cor subrange) 
REAL 
SHORTREAL 
BOOLEAN 
STRING 
packed array[1..n] of CHAR 


Pascal/VS accepts a special para-~ 
meter format which allows you. 
to specify a length of the result. 


The WRITESTR procedure converts expres-— 
sions into character data and stores tha 
data into a string variable. The seman- 
tics of WRITESTR are identical to WRITE, 
except that the target of the data is to 
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a STRING rather than to a text file. 
See "WRITE and WRITELN CTEXT Files)" on 
page 114. WRITESTR is especially useful 
for converting data into string format. 


As in the case of WRITE, the expressions 
being converted may be qualified with a 
field length expression. 


var 

I,J: INTEGER; 

S =: STRING(100); 

R = REAL; 

CH CHAR; 

Io:= 10; J := -123; 

R := 3.14159; 

CH := 'H!'; 

WRITESTR(S,1:3,J:5,'ABC',CH, 
R:5:2); 


the variable S would be assigned: 
*" 10 -123ABCxX 3.14’ 
The WRITESTR Procedure 


C 
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11.7 GENERAL ROUTINES 


These routines provide several useful features of the Pascal/VS runtime environment. 


11.7. TRACE Procedure 


Routine Trace 


Definition: 


procedure TRACEC 


var F TEXT); 


Where: 


F is the file that will receive 
the traca listing 


This procedure displays the current list 
eof procedures and functions that are 
pending execution (Ci.e. save chain). 
Each line of the listing contains the 
name of the routine, the statement num- 


ber where the call took place, the 
return address in hexadecimal and the 
name of the module that contained the 


calling procedure. 


The file F is the TEXT file to which the 
information is to be written. 


+eeeet+ +e 


tees 


11.7.2 WALT Procedure 


Halt Program Execution 


Definition: 


Procedure HALT; 


This routine halts execution of an Pas- 
cal/VS program. That is, this can be 
considered to be a return from the main 
program. 
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11.8 SYSTEM INTERFACE ROUTINES 


These routines provide interfaces to system facilities: 


ent on the implementation of Pascal/VS. 


11.8.1 DATETINE Procedure 


Get Date and Time 


Definition: 


procedure DATETIME( 
var DATE, 
TIME ALFA); 

where: 


DATE is the returned date. 
TIME is the returned time. 


This procedure returns the current date 
and time of day as two ALFA arrays. The 
format of the result is placed in the 
first and second parameters respective- 
ly: 


mm/dd/yy 
HH: MM: SS 


where: 

mm is the month expressed as a two 
digit value. 

dd is the day of the month. 

yy is the last two digits of the 
year. 

HH is the hour of the day expressed 
in a 24 hour clock. 

MM is the minute of the hour. 

SS is the second of the minute. 
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in general they are depend- 


11.8.2 CLOCK Function 


Get Execution Time 


Definition: 


function CLOCK INTEGER; 


The value returned is the number of 
microseconds the program has been run- 
ning. 


Note: In an MVS system, the time is 
"TASK" time, while in a CMS system, the 
time is "CPU virtual™ time. 


J 


HEHEHE tH FEET 


+++ 


11.8.3  PARMS Function 


Get Execution Parameters 


Definition: 


function PARMS STRING; 


The PARMS function returns a string that 
Was associated with initial invocation 
of the Pascal/VS main program. 


HEHEHE EEE EEE FHHEHH 


tet te te 


11.8.4 RETCODE Procedure 
Set Program Return Code 


Definition: 


procedure RETCODE( 
RETVALUE INTEGER); 
where: 


RETVALUE is the return code to be 
passed to the caller of the 
Pascal/VS program. The value 
1s system dependent. 


The value of the operand will be 
returned to system when an exit is made 
from the main program. If this routine 
is called several times, only the last 
value specified will be passed back to 
the system. 
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i2.0 THE % FEATURE 


include-statement: 


check~statement: 


---> % ---> CHECK —7-------------------7--- (2222 ON i eee a > 
---> POINTER ----- > ---> OFF ---> 
---> SUBSCRIPT ---> 
---> SUBRANGE ----> 
---> FUNCTION ----> 
---> CASE -------- > 
---> TRUNCATE ----> 


print-statement: 


Soave Shes PRINT, wets: Nee ae Tea ee ec ea > 
---> OFF ---> 


list-statement: 


masonite NE fe -Seo ss t0N cae | ionic le Dace re ane eames > 
---> OFF ---> 


page-statement: 
S220 4 Ses): PAGE. ase sesso SsS SSS she oS SSS ae res esSSSsr sess ssSeca- > 


cpage-statement: 


---> % ---> CPAGE ---> unsigned-integer -- rrr rrr rrr rrr 


title-statement: 


---> % ---> TITLE ---> any-character-string ~- ort rrr rrr rrr rrr nnn 


skip-statement: 


eine £2 SKIP S==> Uns gned=integer Hass sec st SrasassSsr ra sSsre SS 


margins-statement: 


—--7> % ---> MARGINS ---> unsigned-integer unsigned-integer -------- 


The % feature of Pascal/VS is used to + which causes the compiler to ignore all 
enable or disable a number of compiler + text between the statement and the 
options and features. The compiler + end-of-line. 

treats a % command as a trigger symbol 
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12.1 THE “INCLUDE STATEMENT 


The INCLUDE statement causes source from 
a library file to be inserted into the 
input stream immediately after the cur- 
rent line. More precisely, the compiler 
is directed to begin reading its input 
from a library file; when the end of the 
file is reached, the compiler will 
resume reading from the previous source. 
forms of the INCLUDE 


There are two 


statement: 
e “INCLUDE library-name(member-name) 
° %INCLUDE member-name 


The first form references a library file 
and a specific member in the file.5 


The second form references a specific 
member froma default library. 


program ABC; 
const 

%include CONSTS 
type 

%include TYPES 
var 

%include VARS 
%include LIB1¢PROCS) 
begin 


end. 


Example of %INCLUDE statement 


12.2 THE “CHECK STATEMENT 


The CHECK statement gives you the abili- 
ty to enable or disable the runtime 
checking features of Pascal/VS. The 
checking may be enabled for part or all 
of the program. The compiler will check 
the follewing: 


e use of a pointer whose value is NIL 
CPOINTER). 

e use of a subscript which is out of 
range for the array index 
CSUBSCRIPT). 

° lack of an assignment of a value to 


a function before exiting from the 
function CFUNCTION). 


2 Under VM/CMS, 
name 
catenated). 


OSs, 
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and MVS/TSO operating environments, 
is actually the "DD name" of a partitioned data set (which may be con- 
If the library name is omitted, the default is SYSLIB. 


° assignment of a value which is not 
in the proper range for the target 
variable (SUBRANGE). 


° use of the predefined functions PRED 
or SUCC where the result of the 
function is not a value in the type, 
1.e@. underflow or overflow of the 
value range (SUBRANGE). 


e the value of a CASE statement selec- 
tor which is not equal to any of the 
CASE labels (CASE). 

° the value of a string will be 
checked to be sure it will fit into 


the target string on an assignment 
CTRUNCATE). 


If the check option is missing, then all 


of the above checks will be assumed 
applicable. For example, ‘'%CHECK ON! 
activates all of the checks. ‘'XCHECK 


POINTER OFF! 
pointer references. 


will disable the check on 
The default is: 


%CHECK ON 


The %CHECK statement, like 
statements in this section, is a direc- 
tion to the compiler. Its effect is 
based on where it appears in the text 
and jis not subject to any structuring 
established by the program. 


the other 


12.3 THE *PRINT STATEMENT 


The PRINT statement 
and off the printing of source 
listing. The default is: 


is used to turn on 
in the 


%PRINT ON 


12.4 THE “LIST STATEMENT 


The LIST statement is used to enable or 
disable the pseudo-assembler listing of 
the Pascal/VS compiler. This option 
only has affect if the LIST compiler 
options is enabled. 


It is often required 
pseudo-assembler listing 
small section of a module, 
it suppressed elsewhere. 
done as follows: 


to vien the 
for only a 
and to have 
This can be 


1. Insert a line at the beginning of 
the module that consists of 


“LIST OFF 


the specified library 


PEE EEE EEE EE EEE EEE EEE EE EEE EEE EEE HEHEHE HEHEHE HEHE HEHEHE HEHEHE HH 


2. At the beginning of each section of 
code for which an assembler listing 


is required, insert 
%LIST ON 
3. At the end of each code section 
insert 


“LIST OFF 


4. Compile the module with the LIST 


option. 


12.5 THE %PAGE STATEMENT 


The PAGE statement is used to force a 
skip to the next page on the output 
listing of the source program. 


12.6 THE %CPAGE STATEMENT 


The CPAGE statement is used to force a 
page eject if there are less than a spe- 
cified number of lines left on the cur- 
rent page of the output listing. This 
is useful to make sure there is suffi- 
cient room for a unit of code, thereby 
not having it split across two pages. 
Example: 


“%CPAGE 30 


12.7 THE %TITLE STATEMENT 


Thea TITLE statement 
title in the listing. 


is used to set the 
It also causes a 


BEE EEE EEE EEE EEE EEE EEE EEE HEHEHE HEHEHE HEHEHE HEHEHE HH 


page skip. The title is printed as spe- 
cified on the statement, there is no 
change from lower case to upper case. 


The default is no title. 


12.8 THE %*SKIP STATEMENT 


The SKIP statement is used to force one 
or more blank lines to be inserted into 
the source listing. 


12.9 THE “MARGINS STATEMENT 


The MARGINS statement redefines the left 
and right margins of the compiler input. 
The compiler skips all characters that 
lie outside the margins. The statement 
has the form 


“MARGINS mn 


where "m' is the new left margin and "n" 
1s the new right margin. 


If the MARGINS statement appears in a 
library member which is being "included" 
by the ZINCLUDE statement, the new mar- 
gins Will have effect for the duration 
of the member only. When the end of the 
member is reached and the previous 
source is resumed, the margin settings 
will revert back to their previous con- 
dition. 
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"Appendix A. The Space Type" on page 155 

“Appendix B. Standard Identifiers in Pascal/VS" on page 157 
"Appendix C. Syntax Diagrams" on page 159 

“Appendix D. Index to Syntax Diagrams" on page 171 
"Appendix E. Glossary” on page 173 
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A.l THE SPACE DECLARATION 


Space-type: 


---> Space ---> [ 


The need arises to represent data within 
storage areas which do not have the same 
fixed offset within each instance of the 
area. Examples of this include entries 
within a directory, where each entry may 
be of variable length, and processing 
variable length records from a buffer. 
To solve this problem, Pascal/VS pro- 
vides the space structure. 


A variable declared with the space type 
has a component which is able to "float" 
over a storage area in a byte oriented 
manner. Space variables are accessed by 
following the variable's name with an 
integer index expression enclosed in 
square brackets. The index represents 
the offset Cin bytes) within the space 
storage where the data to be accessed 
resides. The offset is specified with 
an origin of zero. 


The constant expression which follows 
the space qualifier in the type defi- 
nition represents the size of the stor- 
age area (in bytes) associated with the 
type. 


The component type of the space may be 
of any type except a file type. 


An element of a space may not be passed 
as a var parameter to a routine. Howev- 
er, an element may be passed as a const 
or value parameter. 


A.2 SPACE REFERENCING 


A component of a space is selected by 
placing an index expression, enclosed 
within square brackets, after the space 
variable (just as in array references). 


--->{constant-expr}---> ] 


t+eetet 
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APPENDIX A. THE SPACE TYPE 


---> of --->{type} 


The indexing expression must be of type 
INTEGER (Cor a subrange thereof). The 
value of the index is the offset within 
the space at which the component is to 
be accessed. The unit of the index is 
the byte. The index is always based 
upon a zero origin, j.e. the index range 
of the space is from zero to one less 
than the value of the constant expres- 


sion. The component will be of the 
space base type. 
If the "XCHECK SUBSCRIPT" option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
that the computed address does not lie 
outside the storage occupied by the 
space. An execution time error diagnos- 
tic will occur if the value is invalid. 
(For a description of the CHECK feature 
see "The “CHECK Statement" on page 150). 
var 

{declare a space variable 

With index range 0..99 } 

S: space[100] of 
record 

A,B: INTEGER 

end; 
begin 

{base record begins 

at offset 10 within 
space } 

S$C10].A := 26; 

§$(€10].B := 0; 
end; 

Space Referencing Examples 
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tee + 


tee + 
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APPENDIX B. STANDARD IDENTIFIERS IN PASCAL/VS 


A standard identifier is the name of a 
constant, type, variable or routine that 
is predefined in Pascal/VS. The name is 
declared in every module prior to the 
start of your program. You may redefine 


the name if you wish; however, it is 
better to use the name according to its 
predefined meaning. 


The identifiers that are predefined are: 


Standard Identifiers 


compute the absolute value of an INTEGER or REAL 
returns the address of a variable 
array of 8 characters, indexed 1..ALFALEN 


array of 16 characters, indexed 1..ALPHALEN 
HBOUND of type ALPHA, value is 16 

returns the arctangent of the argument 

data type composed of the values FALSE and TRUE 


convert an integer to a character value 
returns the number of micro seconds of execution 


returns current column on output line 

replaces multiple blanks in a string with one blank 
returns the cosine of the argument 

returns the current date and time of day 

returns a string with a portion removed 


test file for end of file condition 
test file for end of line condition 
returns the base of the natural log (Ce) 
raised to the power of the argument 
constant of type BOOLEAN, FALSE < TRUE 
convert an integer to a floating point value 
advance file pointer to next element of input file 


determine the upper bound of an array 
determine the maximum value of a scalar 


determine the Lower bound of an array 

determine the current length of a string 

returns the natural logarithm of the argument 
determine the minimum value of a scalar 

returns a string with leading blanks removed 
determine the maximum value of a list of scalars 
determines the maximum length of a string 
determine the minimum value of a list of scalars 


minimum value of type REAL (smallest non-zero 


ABS function 
ADDR function 
ALFA type 
ALFALEN constant HBOUND of type ALFA, value is 8 
ALPHA type 
ALPHALEN constant 
ARCTAN function 
BOOLEAN type 
CHAR type character data type 
CHR function 
CLOCK function 
CLOSE procedure close a file 
cOLS function 
COMPRESS function 
cos function 
DATETIME procedure 
DELETE function 
DISPOSE procedure deallocate a dynamic variable 
EOF function 
EOLN function 
EXP function 
FALSE constant 
FLOAT function 
GET procedure 
HALT procedure halts the programs execution 
HBOUND function 
HIGHEST function 
INDEX function looks up one string in another 
INPUT variable default input file 
INTEGER type integer data type 
L BOUND function 
LENGTH function 
LN function 
LOWEST function 
LTRIM function 
MARK procedure routine to create a new heap 
MAX function 
MAXINT constant maximum value of type INTEGER 
MAXLENGTH function 
MAXREAL constant maximum value of type REAL 
MIN function 
MININT constant minimum value of type INTEGER 
MINREAL constant 
floating point number) 
NEW procedure 


allocate a dynamic variable from most recent heap 
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dentifier 


ODD 

ORD 
OUTPUT 
PACK 
PAGE 
PARMS 
PDSIN 
PDSOUT 
PRED 
PUT 
RANDOM 
READ 
READLN 
READSTR 
REAL 
RELEASE 
RESET 
RETCODE 
REWRITE 
ROUND 
SEEK 
SHORTREAL 
SIN 
SIZEOF 
SQRT 
SQR 

STR 
STRING 


STRINGPTR 


SUBSTR 
SUCC 
TERMIN 
TERMOUT 
TEXT 
TOKEN 
TRACE 
TRIM 
TRUE 
TRUNC 
UNPACK 
UPDATE 
WRITE 
WRITELN 
WRITESTR 


function 
function 
variable 
procedure 
procedure 
function 
procedure 
procedure 
function 
procedure 
function 
procedure 
procedure 
procedure 
type 
procedure 
procedure 
procedure 
procedure 
function 
procedure 
type 
function 
function 
function 
function 
function 
type 


type 


function 
function 
procedure 
procedure 
type 
procedure 
procedure 
function 
constant 
function 
procedure 
procedure 
procedure 
procedure 
procedure 


returns TRUE if integer argument is odd 

convert a scalar value to an integer 

default output file 

copies an array to a packed array 

skips to the top of the next page 

returns the system dependent invocation parameters 

open a file for input from a partitioned data set 

open a file for output from a partitioned data set 

obtain the predecessor of a scalar 

advance file pointer to next element of output file 

returns a pseudo-random number 

routine to read data from a file 

routine to read the end of line character of TEXT file 

converts a string to values assigned to variables 

floating point represented in 370 long floating point 

routine to destroy one or more heaps 

open a file for input 

sets the system dependent return code 

open a file for output 

convert a floating point to an integer by rounding 

positions an opened file at a specific record 

floating point represented in 370 short floating point 

returns the sine of the argument 

determine the memory size of a variable or type 

returns the square root of the argument 

returns the square of the argument 

convert an array of characters to a string 

a type for an array of char whose length varies during 
execution up to a maximum length 

a type for dynamically allocated strings of an 
execution determined length 

returns a portion of a string 

obtain the successor of a scalar 

open a file for input from the terminal 

open a file for output from the terminal 

file of CHAR 

extracts tokens from a string 

writes the routine return stack 

returns a string with trailing blanks removed 

constant of type BOOLEAN, TRUE > FALSE 

convert a floating point to an integer by truncating 

copies a packed array to an array 

opens a file for both input and output 

routine to write data to a file 

routine to write end of line to a TEXT file 

converts a series of expressions into a string 
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actual-parameters: 


array-type: 


> packed 
ik 
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> {expr} >) -> 
, <——] | 
eee ee ee eee >4 
> 


> array € >tindex- type} ] of —>{type} ————> 
[,___* < 


assert-statement: 


---> assert --->{expr} 


assignment-statement: 


, 


—T? tvariable) > 2= —> {expr} 
>fLid:function}——> 


base-scalar-type: 


> fenumerated-scalar-type}——> 
—f—>5 d: scalar-type) —————— > —_____________________} 
>{subrange-scalar-type} > 


case-statement: 


—> case ——>{expr}——> of —> 
sd 


>f{ran 


’ 


ge} > : —>{statement} > 
<— a 
$$ 5 < 


<— ; < 
--7--- >{ ---7---> 
Tei? fstatement)o""7 
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check-statement: 


---> % ---> CHECK --7-------------------7--- rz? ON =---- | > 
---> POINTER ----- > ---> OFF ---> 
---> SUBSCRIPT ---> 
---> SUBRANGE ----> 
---> FUNCTION ----> 
---> CASE -------- > 
---> TRUNCATE----- > 


cpage-statement: 


~--> % ---> CPAGE ---> unsigned-integer ~ mor rrr rr rrr rr rrr rrr nnn nnn > 


compound-statement: 


—> begin —T? statement}—7—_? end — 
<———— ; < 
constant: 
ee gnc eee Stunstoned-number}—>D 
> + —y_? tunsigned-number —> 
> - —> 


constant-del: 


——> const Loe = —>{constant-expr}—> ; yT. 
< 


continue-statement: 


==> CONTINUA ~- rrr rrr rrr rr rr rrr rn nnn rn nnn nnn nnn nnn nnn nnn anna nan > 


declaration: 


> {label-del }—————_> 
>{constant-del} > 
>{type-del } > 
> {var-del }——————_> 
-~-->{def-dcel}--~------- > 
--->{static-del}------ > 
[7 Netuerest) Saintes "| 
>{routine-dcl} > > 
def-del: 
OTTLIDS SBE TITS Tre rayon? foro? Htypeterne g momrew nen nnnn ° 
l Geen e eee | 
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directive: 
> FORWARD AAR qe > 


empty-statement: 


enumerated-scalar-type: 


—> ¢ >{id} >) 
ee 


Vv 


expr: 
constant-expr: 


—> {simple-expression} 
>{simple-expression}——> 


VVVV VV Vv 


factor: 
>{function-call} 


>{variable} 


>{set-constructor }—o—HHH_— > 
> (€ — > lexpr}—> 9 i 
--->{structured-constant} ---------- on nnn > 
> not ——>{factor}——————___——\———> 
> {unsi gned-constant } —————— > 
field: 
—> {id} 
---> € --->f{constant-expr}---> } ---> 
field-list: 
Tl {fixed-part} > 3 J Wari ant-partx—__—> ; —j—> 
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file-type: 


a a file of —>{type}— ———————> 
> packed ——> 
fixed-part: 
>{field} > : ——>{type} > 
Le , <——_ 
| Cn > 
<n 


for-statement: 


—> for —>{id}——> := ——>{expr} > to J? fexpr}——> 
~~ Ls downto —> 
fC 
> do —>{statement }———_—__> 


formal: 


>{procedure-heading} 


>function-heading} 


formal-parameters: 


> ¢ > {formal} > 3 > 
Le > 
> 


function-call: 


——> {id: function}——> {actual-parameters}————_____________c—___> 


function-heading: 


—> function ——>{id}——>(formal-parameters} > : ——>f{id: type}——————_> 
goto-statement: 
> goto —> {label }—iAA 
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if-statement: 


—> if —>{expr}—> then ere TO 
> else —>{statement}—> 


include-statement: 
---> % ---> INCLUDE ---> jd rrr qrr rr rrr rrr rr rr rrr rr rrr rc cscs > 


index-type: 


>{enumerated-scalar-type}——> 
—L—>ti d: scalar-type) >», —________________________» 
> 


>{subrange-scalar-type} 


label? 
> fun i gm ed ge 
L_--3 (jq}-=-------------- > 
label-dcl: 
—> > 
label Te Uebel} 


leave-statement: 


—--> LRAVE --— mmm nmr rrr rn ssn > 


list-statement: 


===> % ---> LIST ---7---> ON ----~ Jor oc ccc rrr rnc c ccna crn nec ccccccccn > 
---> OFF ---> 


margins-statement: 


---> % ---> MARGINS ---> unsigned-integer unsigned-integer --------------- > 

module: 

Ta? fprogram=mo dul eS 
--->{segment-module}---> 


page-statement: 
---> % ---> PAGE -r rrr rr rrr rrr rrr rrr ern > 


pointer-type: 


—> a —> (id: type}-_—_—_Hc"c_¥_jq*¥j_sSsSJs 
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print-statement: 


===> % ---> PRINT ---7---> ON ----= Jorn rrr ccccnne > 
---> OFF ---> 


procedure-call: 


——? ids procedure) Tel 
> ¢ >fexpr > ) —> 
Le ee 


procedure-heading: 


—> procedure ——>{id}——> {formal-parameter s}-— LL" 


program-module: 
—> program ——>{id} > ¢ >{id} > ) > 
i Tg yf 


< 


<—.] 
>{declaration}——> 


>{compound-statement} >. a 
--------- > 
range: 
—_—> {constant- expr} —>n ? 
---> ., --->{constant-expr}---> 


real-number: 


<--> 8 ---7--- >{hex-digit}---7--- > 'XR --------------------- > 
| Peeinneinnnneee J | 
>{digit} >. >{digit} > 
< 


> E > >{digit)} > 
/—> + —>| Le 
> - —> 


record-structure: 


record-type: 


Tl ep Ly” record —>{field-list}——> end ———————————> 
> packed ——> 
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repeat-statement: 


—> repeat —{,? istatement}—7—> until —> {expr} 
<——— ; < 


repetition: 


--->{constant-expr} ---- 9 rr er rere rrr rrr errr rrr aan 


return-statement: 


ToT P@RUPN mr ttt rn rn nnn rn nnn nn nnn nnn nnn nnn 


routine-decl: 


, 


>{directive}—> ; 


>{declaration}——> 


>{compound-statement}—> ; 


segment-module: 
---> SEGMENT --->{id}---> ; 7] 


> teonstant-dei)---->4 

---> {type-del}-~------ > 

--->{var-del}--------- > 

--->{def-del}--------- > 

--->{static-dcl}------ | 

---> {value-del}------- >| 

--->f{routine-dcel}----- > 

Lecaqeney | ccaprseccc cee nnne cece ccna c ccna necc nnn : 


set-constructor: 


—> C >{expr} > ) —— 
> .. ——>lexpr}—> 
[_ ,< 
> 


> {procedure-heading}————__—_—_——> 
Ls tfunction-headi ng} 
<————_—____—_———- 5 < 


Vv 
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set-type: 


To be J” sat of —>{base-scalar-type}——__————_> ) 
> packed ——> | 


simple-expression: 


skip-statement: 


“77> % ---> SKIP ---> unsigned-integer ~ro mmm mmr rrr rr rena > 


Space-type: 


---> space ---> [ --->{constant-expr}---> ] ---> of --->{type}------------- > 
statement: 
——— > flabel}——> : aa 
K< 
L_--> fassert-statement} asian eaenianianiaeinnanienenianieninnan inne > 
t——> fassi gnment-statement }—@£ HH _H____—™—>> ») 
>{case-statement } —JAANAM#@#@H 
> {compound-statement} > 
--->{continue-statement} —------- 3 nr rrr > 
> {empty-statement }22—HWHYY——H_— > 
? {for-statement } ——H———_ 
>{goto-statement} ————_——————— 
> {i f-statemen st} 
r---> f{leave-statement} --------- nr rrr > 
t——> {procedure-ea kL} RR? 
> {repeat-statement }———————_—______—_——— 
fro freturnestatenent) aentahanennenienianenenennenianiennenienherienienennenie einen eee > 
>{whi le-statemen st }A——-AAA 
>{with-statement}——@ > > 
static-del: 
---> Static pg? ets mon> t s-->{type}---> ; “wT alalaininnnnennnanna > 


Loe ec eceeceeneenteneen | J 
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structured-constant: 


~~ [7772 {record-structure}---7 rrr nnn nn nec cesscnsscn > 
--->f{array-structure}---> 


subrange-scalar-type: 


---> packed ~77?y 


>{constant}——> .. ——>{constant-expr} > 


L---> range --->{constant-expr}---> .. --->{constant-expr}--->4 


>{factor} 


title-statement: 


—--> % ---> TITLE ---> any-character-string ---rr rrr rrr rrr rrr nnn > 
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tee + 


type: 


> Lid? type} —_— 


r——> fenumerated-scalar-type}—O-_ @-—-—__> 
> {subrange-scalar-type}oOo£- —o@ ———> 

-— > farray-type} —_ ——A a 
>{record-type $277 
>{set-type} —— i 
>{file-type}—_ A 
>{pointer-type} ——_—___________ 

L---> {string-type)} -- ooo ore rer nnn re ee ee enn e ne > > 

type-del: 


—> type car eae = —>{type}——> ; > 
< 


unsigned-constant: 


> {unsi gned-number} > 
> {string}—————_> 
>{id?constant}———_> 
> nil ————————_> 


unsigned-integer: 


oe ns OE 
< 


ae hosdseee- binary Cigit)-ssiate> as 


unsiqned-number: 


>{unsigned-integer} OS 
ice ne < {real-number }}——————> 


value-assignment: 


--->{variable}---> := ~~ oyr777? Ceonstant- expression} ——-~-7 Sacra SESS SSaess > 
--->{structured-constant}---> 


value-del: 
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variable: 


—>{id}——> 


> [ >{expr} > J 
[a aeene rs 


> . ——>fid: field} -—————————_ 


> a —WNYHA_? 


variant-part: 


—ae ee we eee ew ee eee > 
—> case Th fidi > 3 ———> ia type 1» of —> 
> 
< 
>{range} 


> : ¢ >{field-list}—7—> ) > 
< » < > 
er 


, 


while-statement: 


> While —> fexpr}—> do —> {statement }— —_————_> 


with-statement: 


—> with Tr? fvariable}—7——> do — >{statement}— > 
<——- , < 
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actual-parameters........... 81 
array-structure............. 20 
array-type...... ccc cee eee eee 44 
assert-statement............ &6 
assignment-statement........ 87 
base~scalar-type............ 50 
case-statement.........5000% 88 
check~statement............. 149 
compound-statement.......... 90 
constant... ... cece ee eee ees 18 
constant-decl...........2000ee 26 
constant-expr....... eee eee 73 
continue-statement.......... 91 
cpage~statement............. 149 
declaration............0000- 23 
def-dcl... ee eee ee ees 30 
directive... .... cc wee eee ee 63 
empty-statement............. 92 
enumerated-scalar-type...... 36 
[=> do a 73 
Factor... ec ee ees 73 
Field... cc cee ee ee eee 46 
field-list................-. 46 
file-type......... 2. eee eee 52 
Fixed-part..... cee ee ee ee 46 
for-statement............... 93 
formal... ee et te ees 63 
formal-paramaters........... 63 
function-heading............ 63 
function-call.............6. 81 
goto-statement..........-26. 95 
1 13 
if-statement............206. 96 
include-statement........... 149 
index-type....... . ce ee ee eee 44 
label... cc eee ee ee eee 25 
label-dcl... ce ee eee ee 25 
leave-statement............. 97 
list-statement.............. 149 
margins-statement........... 149 
module... .. ee ee te ee ees 23 
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Ppage-statement.............. 149 
pointer-type.........2.0 2c eee 59 
print-statement............. 1493 
procedure-call.............. 98 
procedure-heading........... 63 
program-module............6. 23 
PANG... ccc cee ewer ee eee eee 46 
real-number............020005 18 
record-structure............ 20 
record-type........,c. eee eens 46 
repeat-statement............ 99 
repetition..... 2... cee eee eee 20 
return-statement............ 100 
routine-dcl........... 2 eee 63 
segment-module.............. 23 
set-constructor............. 83 
set-type...... ce ee ee ee eee 50 
simple-expression........... 73 
skip-statement.............. 149 
space-type....... ce eee eee ee 155 
Statement... ... cee ee ee ee eee 85 
static-del........ 2... eee eee 29 
String... . ee ee ee ee ee ees 18 
string-type..........0-0.0 cee 53 
structured-constant......... 20 
subrange-scalar-type........ 37 
COrmM. ccc cee eee ee eee eee eee 73 
title-statement............. 149 
5 © — 33 
type-dcl.... cece ee eee 27 
unsigned-constant........... 18 
unsigned-integer...........6- 18 
unsigned-number............. 18 
value-assignement........... 31 
valuerdcl.... ee. eee ee ee ee 31 
var-dcl.. wc ce ee et et ees 28 
variable... . ee ee ee 69 
variant—-part...........2 cee 46 
with-statement...........6.-. 102 
while-statement............. 101 
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Actual parameter specifies what is to be 
passed to a routine. 


Array type is the structured type that 
consists of a fixed number of elements, 
each element of the same type. 


Assignment compatible is the term used 
to indicate whether a value may be 
assigned to a variable. 


Automatic variable is a variable which 
is allocated on entry to a routine and 
is deallocated on the subsequent return. 
An automatic variable is declared with 
the var declaration. 


Base scalar type is the name of the type 
on which another type is based. 


Bit is one binary digit. 


Byte is the unit of addresability on the 
System/370, its length is eight bits. 


Compatible types is the term which is 
used to indicate that operations between 
values of those types are permited. 


Component is the name of a value in a 
structured type. 


Constant is a value which is either a 
literal or an identifier which has been 
associated with a value in a const dec- 
laration. 


Constant expression 15 an expression 
which can be completely evaluated by the 
compiler at compile time. 


Dynamic variable is a variable which i5 
allocated under programmer control. 
Explicit allocates and deallocates are 
required; the predefined procedures NEW 
and DISPOSE are provided for this pur- 
pose. 


Element is the component of an array. 


Entry routine is a procedure or function 
which may be invoked from outside the 
module in which it is defined. The rou- 
tine is called entry in the module in 
which is defined. An entry routine may 
not be imbedded in another routine; it 
must be defined on the outermost level 
of a module. 


Enumerated scalar type is a scalar that 
is defined by enumerating the elements 
of the type. Each element is repres- 
ented by an identifier. 


External routine is a procedure or func- 
tion which may be invoked from outside 
the module in which the routine is 
defined. 


Field is the component of a record. 
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File type is a data type which is the 
mechanism to do input and output in Pas- 
cal/VS. 


Fixed part is that part of a record 
which exists in all instances of a par- 
ticular record type. 


Formal parameter is a parameter as 
declared on the routine heading. A for- 
mal parameter is used to specify what is 
permitted to be passed to a routine. 


Function is a routine, invoked by coding 
its name in an expression, which passes 
a result back to the invoker through the 
routine name, 


Identifier is the name of a declared 
item. 


Index is the selection mechanism applied 
to an array to identify an element of 
the array. 


Internal routine is a routine which can 
be used only from within the lexical 
scope in which it was declared. 


Lexical scope identifies the portion of 
a module in which a name is known. An 
identifier declared in a routine is 
Known within that routine and within all 
nested routines. If a nested routine 
declares an item with the same name, the 
outer item is not available in the nest- 
ed routine. 
Module is the compilable unit in 
Pascal/VS. 


Offset is the selection mechanism of a 
space. An element is selected by plac- 
ing an integer value in parenthesis. 
The origin of a space is based on zero. 


Packed record type is a record structure 
in which fields are allocated in the 
minimum number of bytes. Implementation 
defined alignment of data types will not 
be preserved in order to pack the 
record. Packed records may not be 
passed by read/write reference. 


Pass by read only reference is the 
parameter passing mechanism by which the 
address of a variable or temporary is 
passed to the called = routine. The 
called routine is not permitted to modi- 
fy the formal parameter. If the actual 
parameter is an expression, a temporary 
will be created and its address will be 
passed to the called routine. A tempo- 
rary is also created for fields of 
packed records. 


Pass by read/write reference is the 
parameter passing mechanism by which the 
address of a variable is passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
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responding actual parameter is changed. 
Only variables may be passed via this 
means. Fields of packed records will 
not be permitted to be passed in this 
way. 


Pass by value js the parameter passing 
mechanism by which a copy of the value 
of the actual parameter is passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
responding actual parameter is not 
affected. 


Pointer type is used to define variables 
that contain the address of dynamic var- 
jables. 


Procedure is a routine, invoked by cod- 
ing its name as a statement, which does 
not pass a result back to the invoker. 


Program module is the name of the com- 
Pilable unit which represents the first 
unit executed. 


Record typa is the structured type that 
contains a series of fields. Each field 
may be of a type different from the 
other fields of the record. A field is 
selected by the name of the field. 


Reserved word is an identifier whose use 
is restricted by the Pascal/VS compiler. 


Routine is a unit of a Pascal/VS program 
that may be called. The two type of 
routines are: procedures and functions. 


Scalar type defines a variable that may 
contain a single value at execution. 


Segment _ module is a compilable unit in 
Pascal/VS that is used to contain entry 
routines. 


Set type is used to define a variable 


that represents all combinations of ela- 
ments of some scalar type. 
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Space typa is used to define a variabla 
whose components may be positioned at 
any byte in the total space of the vari- 
able. 


Statement is the executable unit in a 
Pascal/VS program. 


String represents an ordered list of 
characters whose size may vary at exe- 
cution time. There is a maximum size 
for every string. 


String constant is a string whose value 
is fixed by the compiler. 


Structured type is any ane of several 
data type mechanisms that defines vari- 
ables that have multiple values. Each 
value is referred to generally as a com- 
ponent. 


Subrange scalar type is used to define a 
variable whose value is restricted to 
some subset of values of a base scalar 
type. 


Tag field is the field of a record which 
defines the structure of the variant 
part. 


Type defines the permissible values a 
variable may assume. 


Type definition is a specification of a 
data type. The specification may appear 
in a type declaration or in the declara- 
tion of a variable. 


Type identifier is the name given to a 
declared type. 


Variant part is that portion of a record 
which may vary from one instance of the 
record to another. The variant portion 
consists of a series of variants that 
may share the same physical storage. 


C 


Special Characters 


< operator 38, 39, 41, 42, 43, 54, 56> 
57 
<< operator on INTEGERS 38, 80 
<> operator 38, 39, 41, 42, 43, 50, 
54, 56, 57 
<= operator 38, 39, 41, 42, 43, 50, 
54, 56, 57 
+ operator 38, 42, 43, 50 
| operator 38, 41 
}] operator 54 
& operator 38, 41 
&& operator 38, 41, 50 
* operator 38, 42, 43, 50 
operator 38, 41, 59 
operator 38, 42, 43, 50 
operator 38, 42, 43 
statements 149 
CHECK 150 
CPAGE 151 
INCLUDE 150 
LIST 1590 
MARGINS 151 
PAGE 151 
PRINT 150 
SKIP 151 
TITLE 151 
> operator 38, 39, 42, 43 
> operator 41, 54, 56, 57 
>> operator on INTEGERS 38, 80 
>= operator 38, 39, 41, 42, 43, 50, 
54, 56, 57 
= operator 38, 39, 41, 42, 43, 50, 54, 
56, 57 
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ABS function 38, 39, 42, 43, 134 

adding operators 76 

ADDR function 38, 39, 41, 42, 43, 50, 
54, 56, 57, 127 

ALFA operators 56 

ALFA predefined type 56 

ALPHA operators 57 

ALPHA predefined type 57 

and operator on INTEGERS 80 
ARCTAN function 42, 43, 136 

array referencing 69 

array structured constants 20 

array subscripting 44 

array type 44 

assert statement 86 

assignment of compatible types 34 

assignment of function value 87 
assignment statement 87 


NN UG 


binary integer constants 18 
BOOLEAN expressions 79 
BOOLEAN operators 41 
boolean predefined type 41 


case statement 88 

CHAR operators 39 

char predefined type 40 
CHECK compiler directive 150 
CHR function 38, 128 

CLOCK function 146 

CLOSE procedure 109 

COLS function 118 

comments 17 

COMMON CFORTRAN) 30 
compatible types 34 

compile time initialization 31 
compound statement 90 
COMPRESS function 54, 142 
conformant STRING parameters 64 
const declaration 26 
constant declaration 26 
constant expression 73, 78 
constant expressions 18 
constants 18 

continue statement 91 
conversions 33 

conversions ona string 55 
COS function 42, 43, 135 
CPAGE compiler directive 151 


[> ] 


data alignment 61 

data storage requirements 61 
DATETIME procedure 146 
declaration 23, 25 
declaration order 24 

def variable declaration 30 
DELETE function 54%, 140 
directives 63 

DISPOSE procedure 59, 123 
div operator 38 

div operator defined 39 
downto in the for statement 93 
dynamic variables 59, 70 


[| 


EBCDIC 40 
empty statement 92 
enumerated scalar 36 
EOF function 111 
EOLN function 117 
example of 

array declarations 44 


Index 
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array indexing 45 while statement 101 


assert statement 86 with statement 102, 103 

assignment statement 87 WRITE procedure 114, 115 ) 
BOOLEAN expressions 79 WRITESTR procedure 144 

case statement 88 execution time string allocation 60 

compound statement 90 EXP function 42, 43, 136 

COMPRESS function 142 expression 73 

conformant strings 65 EXTERNAL directive 63 

const declaration 26 EXTERNAL routines 65 

const parameter 67 external variable 30 


constant expressions 78 

constants 19 

continue statement 91 

def declaration 30 [| 
DELETE function 140 

enumerated scalar 36 


EOF procedure 111 factor 73 

expressions 75 field 46, 48 

EXTERNAL function 65 field list 46 

fields in a record 70 field referencing 70 

file declarations 52 file referencing 71 

for statement 94 file type 52 

function 81 fixed part of a record 46, 47 
function returning a record 67 FLOAT function 38, 129 

goto statement 95 for statement 93 

HBOUND function 126 formal parameter 64 

HIGHEST function 125 formal parameter list 63, 64 
if statement 96 FORTRAN directive 63 

INDEX function 142 FORTRAN routines’ 65 
initializing an array 31 FORWARD directive 63 

label declaration 25 FORWARD routines 65 

LBOUND function 126 function calls 8l 

leave statement 97 function declaration 63, 64 
logical expressions 80 function heading 63 

LOWEST function 125 function parameters 64 

LTRIM function 141 function results 67 

MARK and RELEASE 121 functions in constant expressions 78 
nested comments) 17 


NEW procedure 122 

offset on a tag field 49 

offsets in a record 49 [s | 

otherwise in a case statement 89 

procedure invocations 98 

procedures and functions 67 GET procedure 109 
program module 24 goto statement 95 
READ procedure 112, 113 

READSTR procedure 143 

record declarations 47 

recursive function 67 [4 ] 

ref declaration 30 

repeat statement 99 


ROUND function 130 HALT procedure 145 

scalar function 129 HBOUND function 54, 126 

SEGMENT module 24 heap 59 

set declaration 50 hexadecimal integer constants 18 
space type 155 hexadecimal real constants 18 
static declaration 29 hexadecimal string constants 18 
structured constants 21 HIGHEST function 38, 39, 4¢1, 125 


subrange scalar 37 

subscripted variables 70 

SUBSTR function 140 

TOKEN procedure 143 [ x | 
TRIM function 141 

TRUNC function 130 


type compatibility 35 identifiers 13 

type declaration 27 if statement 96 

UPDATE procedure 108 implicit conversions 33 

using a file 71 in operator 50 

using pointers 71 INCLUDE compiler directive 150 
using STRINGPTR 60 INDEX function 54, 142 

using STRINGS 53 initialization 31 : 
using variables 69 initializing the Pascal runtime 
value declaration 31 environment 66 

var declaration 28 INTEGER operators 38 

variant record 47, 48 INTEGER predefined typa 38 
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38, 39 
65, 66 


INTEGER storage mapping 
interlanguage communication 
internal routines 65 


label declaration 25 
label format 25 
LBOUND function 54, 
leave statement 97 
LENGTH function 53, 
lexical level 13 
lexical scope 13 
LIST compiler directive 
LN function 42, 43, 137 
logical expressions on INTEGERS 80 
logical operations on integers 39 


126 


54, 139 


150 


LOWEST function 38, 39, 41, 125 
LTRIM function 54, 141 

MAIN directive 63 

MAIN routines 65, 66 

MARGINS compiler directive 151 

MARK procedure 59, 120 

MAX function 38, 39, 41, 42, 43, 132 
MAXINT 38 

MAXLENGTH function 53, 54, 139 

MIN function 38, 39, 41, 42, 43, 132 


MININT 38 

mod operator 38 

mod operator defined 39 

module 23 

module, structure 23 
multi-dimensional array 44 
multi-dimensional arrays 69 
multiplying operators 76 
mutually recursive routines 65 


Lv] 


NEW procedure 59, 
not operator 76 
not operator on INTEGERS 80 


[o ] 


ODD function 38, 39, 134 
offset qualification 48 
operations on 

ALFA 56 

ALPHA 57 

BOOLEAN 41 

CHAR 40 

INTEGER 38 

REAL 42 

set 50 

SHORTREAL 43 

STRING 54 
operator precedence 73 
operators 76 
or operator on INTEGERS 80 


121 


ORD function 39, 41, 128 

order of evaluation of BOOLEAN 
expressions 79 

order of evaluation of expressions 


Le] 


PACK procedure 
packed array 44 
packed record 48 
packed set 50 

packed subrange 37 
PAGE compiler directive 
PAGE procedure 117 
parameter 64 
parameters 63 
parenthesized expression 73 
PARMS function 147 

pass by const parameters 64 

pass by read-only reference 
parameters 64 

pass by reference parameters 64 
pass by value parameters 64 
pass by var parameters 64 

PDSIN procedure 107 

PDSOUT procedure 108 

pointer referencing 70 

pointer type 59 

PRED function 38, 39, 133 

PRINT compiler directive 150 
procedure call statement 98 
procedure declaration 63 
procedure heading 63, 64 
procedure parameters 64 

program module 23 


124 


151 


PUT procedure 110 
RANDOM function 138 
READ procedure 111, 113 
Reading 
CHAR Data 112 
INTEGER Data 112 


packed array of CHAR Data 
REAL CSHORTREAL) Data 112 
STRING Data 112 
Variables with a Length 112 
READLN procedure 111 
READSTR procedure 54, 
real constants 18 
REAL operators 42 
real predefined type 42 
record structured constants 20 
record type 46 
REENTRANT directive 63 
REENTRANT routines 65, 66 
ref variable declaration 30 
relational operators 76 
RELEASE procedure 59, 120 
repeat statement 99 
reserved words) 15 
RESET procedure 105 
restrictions on a goto statement 
restrictions on file type 52 
restrictions on routines 65 
restrictions using the MAIN 
directive 66 


112 


143 


Index 


95 


73 


177 


restrictions using the REENTRANT 
directive 66 

RETCODE procedure 147 

return statement 100 

revision codes iv 

REWRITE procedure 106 

ROUND function 42, 43, 130 
routine declaration 63, 64 
routine parameters 64% 


[s | 


same type 34 
scalar conversion functions 82, 
scope 13, 46 
SEEK procecure 110 
SEGMENT module 23 
separate compilation 65 
set operators 50 
set type 50 
short circuiting of BOOLEAN 
expressions 79 
SHORTREAL operators 43 
shortreal predefined type 43 
simple expression 73 
SIN function 42, 43, 135 
SIZEOF function 38, 39, 41, 42, 
50, 54, 56, 57, 127 
SKIP compiler directive 151 
space declaration 155 
space element referencing 155 
special symbols 16 
SQR function 38, 42, 43, 138 
SQRT function 42, 43, 137 
statements 85 
static variable declaration 29 
storage mapping for a set 51 
storage mapping of a record 48 
STR function 39, 56, 57, 131 
STRING 60 
string constants 18 
STRING operators 54 
STRING parameters 64 
string subscripting 53, 70 
string type 53 
strings 33 
structured constants 20 
subrange scalar 37 
subscripting 

of arrays 44, 69 

of string variable 53, 70 
SUBSTR function 54, 140 
SUCC function 38, 39, 133 


tag field 47 

term 73 

TERMIN procedure 106 

TERMOUT procedure 107 

TEXT predefined type 58 
TITLE compiler directive 151 
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129 


43, 


to in the for statement 93 
TOKEN procedure 143 

TRACE procedure 145 

TRIM function 54, 141 
TRUNC function 42, 43, 130 
type compatibility 33 

type conversions 33 

type declaration 27 

type identifier 27 

type matching 34 

types 33 

types of routines 65 


Le | 


UNPACK procedure 124 
unsigned-integer constants 18 
UPDATE procedure 108 
user defined types 33 


value declaration 31 

var declaration 28 

variable declaration 28 
variable identifier 28 
variables 69 

variant part of a record 46, 47 


[| 


while statement 101 
with statement 102 
WRITE procedure 114, 116 
WRITELN procedure 114 
WRITESTR procedure 54, 144 
Writing 

BOOLEAN Data 115 

CHAR Data 115 

INTEGER Data 115 

Packed Array of CHAR Data 11t 

REAL Data 115 

STRING Data 115 
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